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Caracteristicas Técnicas 

* Linguagem BASIC 

e 10 Kbytes de ROM. 

e 16 ou 48 Kbytes de memória 
RAM. 

e 40 teclas e 160 funções. 

e Gravação de programas em 
fita cassete comum, 

e Input e Output de dados. 

e Vídeo: aparelhos de TV B&P 
ou colorido. 

* Funções especiais 
HIGH-SPEED. 

e Som Opcional. 

e Joystick, impressora. 


Preço de lançamento: 
Cr$ 198.850,00 (16K) 
Cr$ 269.850,00 (48K) 


(Preço sujeito a alteração) 
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Editorial 


É extremamente embaraçoso come- 
car um editorial com um pedido de descul- 
pas, mas ele se faz necessário por dois 
motivos. Inicialmente o atraso do número 

1 em relação ao prazo previsto por oca- 
sião do lançamento do número P . 

Uma série de dificuldades burocráti- 
cas aparentemente irrelevantes nos fize- 
ram passar por uma situação tipica dos 
pesadelos: correr, correr, sem sair do lu- 
gar. 

Felizmente já entramos no ntmo nor- 
mal e a periodicidade mensal será mant- 
da, com o máximo de pontualidade. 

Em segundo lugar, o atraso da fita 
brinde. Algumas dificuldades na produção 
nos fizeram optar por uma maior demora 
em troca de uma melhor qualidade no pro- 
duto a ser enviado para nossos assnan- 
tes. 

Além das desculpas, com este nú- 
mero estamos atendendo a uma série de 
solicitações dos nossos leitores, a principal 
delas referente ao “volume” da revista, 
cuja tendência daqui para frente é crescer 
cada vez mais. Começamos neste núme- 
ro um curso de linguagem de máquina 
que permitirá, a partir do próximo número, 
a publicação de programas especiais nes- 
ta linguagem. 

Finalmente, queremos agradecer à 
confiança que uma multidão de novos as- 
snantes depositou em nós, permitindo as- 
sim a elaboração de uma revista que dese- 
jamos cada vez melhor e cada vez mais 
util. 
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CARTA DOS 
LEITORES 





Prezados Senhores, 

Achei interessante a idéia de V.Sas., em lançar uma 
revista voltada exclusivamente para o TK-82. Espero que 
saibam levar a publicação a um bom caminho e fujam 
de “bater na mesma tecla”, muito comum em outras re- 
vistas do gênero. Boa sorte então! 


Sobre a assinatura, tenho algumas dúvidas. Sou pos- 
suidor de um TK, com expansão para 16K, que me aju- 
da muito no curso que estou terminando de Engenharia 
Eletrônica. Não uso muito seus recursos de software. 
Procuro aprender mais e aplicar o que aprendi nas áreas 
de software básico e hardware. Comparando o preço da 
assinatura pretendido por V.Sas., com o preço de outras 
publicações, percebe-se boa diferença. Talvez devido ao 
brinde”. Não estou interessado na fita com programas. 
A assinatura sai no mesmo preço? Fica como sugestão o 


brinde opcional, Outra dúvida: O mercado de micros es- 
tá em constante mudança. Hoje já vem o TK85 para 
substituir o TK82-C. Em breve, virão melhores micros. 
E a revista? Como fica? Acompanha a evolução, ou fica 
fiel aos antigos possuidores do TK? Talvez as duas 
coisas, mas até quando? 


Luis Fernando Neves de Pinho 


Prezado Luis, 

Vamos esclarecer suas dúvidas: 

1) É impossível comparar o preço da assinatura de 
MICROHOBBY com o de outras publicações do gênero, 
pois não existem outras publicações assim no Brasil. 
MICROHOBBY é uma revista para usuários do TK, man- 
tida pelas assinaturas destes mesmos usuários. 

Você não pode comparar seu custo com o de revistas 
que vendem 30%, 40% ou até 50% de seu espaço para 
anúncios. Se você comparar então o grau de utilidade de 
MICROHOBBY para quem tem um TK, você verá que 
só no número zero, reduzido e promocional há mais 
coisas para o TK do que em todas as outras revistas jun- 
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2) O brinde é um presente nosso e não altera o preço da 
assinatura. Consequentemente, o aconselhamos a passá- 
lo para algum amigo que ficará muito agradecido. 

3/0 TK85 não veio para substituir o TK82 pois situa-se 
em outra faixa de mercado. Como eles usam a mesma ló- 
gica, seus softwares são compatíveis, portanto a revista é 
escrita para os usuários dos dois TKs e de todos os even- 
tuais TK que venham a surgir. 

4) Se a revista sentir a necessidade de atender outros mi- 
cros certamente continuará também fiel aos possuidores 
do TK82 pois foi para eles que ela foi criada. Este é um 
compromisso que assumimos e vamos manter. Já recebe- 
mos por exemplo, solicitações para abrir um suplemento 
que atende computadores com lógica APPLE. A idéia 
está sendo estudada, mas fique tranquilo com uma coisa: 
qualquer outro computador que seja atendido por 
MICROHOBBY será algo A MAIS que o usuário do TK 
estará recebendo, sem roubar nenhum espaço a ele dedi- 
cado. 


Prezados Senhores, 

Recebi o número (Q e fiquei impressionado com o óti- 
mo nivel da revista. Ela está muito bem bolada. Faltava 
algo que unisse todos os possuidores do TK e similares. 
Vocês acertaram na mosca. 

Eu já possuia contato com programação pois possuo 
uma calculadora HP-41CV desde o começo do ano pas- 
sado. Em outubro me motivei a comprar um micro e 
optei pelo TK, pela simplicidade e preço reduzido. 
Aprender a linguagem BASIC não foi muito difícil (é 
uma questão de tempo). Não possuo por enquanto ne- 
nhum tipo de acessório. Possuo uma série de programas 
(principalmente jogos) feitos por mim. Muitas modifi- 
cações podem ser feitas para melhorar os programas. 
Pretendo remeter-lhes mensalmente um bom programa 
ou uma colaboração. Inicialmente mando este JOGO 
DA FORCA que ao meu ver ficou muito melhor do que 
muitos (de 2K) que já vi. Contem com meus sinceros 
votos de felicidade e BOA SORTE. 


Armando de Toledo Filho 


Caro Armando, 

Antes de mais nada, obrigado pelos votos de BOA 
SORTE e pela sua oferta de colaboração (veja matéria 
“Como colaborar com MICROHOBBY” na pág. 38 |). 
Com relação ao jogo de forca, ele foi analisado pelo pes- 
soa! da redação e você está de parabéns: o programa é 
ótimo. Infelizmente não vamos publicá-lo pois quase to- 
das as outras revistas do ramo já publicaram vários “JO- 
GO DA FORCA”, “SENHA” e similares. Apesar disto, 
seu programa pode ser aproveitado: porque não inventa 
ou aperfeiçoa mais alguns jogos e produz uma fita de jo- 
gos para 2K? Você poderia até vender esta fita para inte- 
ressados. Para isto abrimos um espaço gratuito de peque- 
nos anúncios (veja pág. 39 ). Desejamos uma boa sorte 
para você também e continue enviando colaborações. 


CARTA DOS LEITORES 


Continuação... 


Prezados senhores, 

Possuo um TK82-C há pouco tempo. Entre os progra- 
mas que comprei já prontos, um deles (MONSTRO DAS 
TREVAS) não carrega e se perde ao chegar no final. 
Gostaria de saber se existe algum ““macete”” para carregar 
programas como este, que aparentemente estão com de- 
feito. 


Sérgio Luis de Oliveira 


Prezado Sérgio, 

Quando isto acontecer tente 3 coisas nesta ordem: 
1) Limpe a cabeça de gravação do seu gravador antes de 
tentar o LOAD, ajustando o controle de volume e tona- 
lidade, até obter um som o mais estridente possível. 
Teste antes com um programa mais curto que entre e 
ouça o som produzido, tentando depois reproduzir a 
mesma altura e timbre no programa que lhe interessa. 
2) Tente utilizar outro gravador com os mesmos cuida- 
dos do item 1. 
3)Se os itens 1 e 2 não funcionaram, provavelmente a 
fita está com defeito. Envie-a para a MICROSOFT, com 
uma carta explicando o problema e o pessoal mandará 
para você uma fita novinha. 


Prezados Senhores, 

Muito oportuno o lançamento de uma revista dedica- 
da ao TK. Já se tornava cansativo comprar as revistas es- 
pecializadas com “dicas quentes” sobre dezenas de mi- 
crocomputadores, exceto o TK-82. 

Agora que vocês se anteciparam nesse negócio, aqui 
vão algumas sugestões: 

a) Manter a mesma linha de todas as revistas do gênero, 
ou seja, divulgar programinhas sem graça. Isso satisfaz a 
maioria, 

b) Promover os programas “quentes” mesmo que isso 
implique em gastar mais papel. 

c) Divulgar, com espírito de formação, conhecimentos 
básicos, tais como os conceitos de “variável” e aritméti- 
ca com números hexadecimais. 

d) Fornecer dicas realmente quentes de como, por exem- 
plo, movimentar desenhos ou informações no vídeo sem 
usar o comando PRINT, mas definindo diversas áreas 
dentro do programa BASIC e dando vários POKES nos 
endereços do DFILE (16396 e 16397). 

Finalizando a presente, gostaria de manifestar o meu 
interesse em colaborar com vocês, pois, há muito desde 
1968, emprego computadores em meus serviços e creio 
que na experiência obtida tenha muitas idéias que serão 
úteis para seus leitores. 


Roberto Massaru Watanabe 


Caro Roberto, 

Agradecemos suas sugestões e seu interesse em cola- 
borar com nossa revista. Esperamos ter, nos próximos 
números muitos artigos e programas com sua assinatura 
(veja “Como colaborar com MICROHOBBY”, pág.38). 

Com relação às suas sugestões, alguns comentários: 

A) Vamos realmente publicar programinhas “fáceis” 
(que você chamou de “sem graça”) pois uma considerá- 
vel fração de nossos assinantes é constituída de crianças 
e principiantes. Muitos não tem expansão de memória, 
mas têm o direito de se divertir aprendendo. Num curso 
para crianças de 8 a 10 anos, realizado no NÚCLEO DE 
ORIENTAÇÃO DE ESTUDOS, o programa BOLICHE, 
publicado no número (, provocou muito entusiasmo. 
As crianças descobriram sozinhas que alterando o 
“EOOP” 


155 FOR M=1TOB 
para: 
155 FOR M= 1 TO 20 


passavam a ter direito a mais bolas! 


Também sozinhas descobriram que eliminando as li- 
nhas: 


195 UNPLOT A, B 
199 UNPLOT A, B 


o programa passava a “desenhar foguetes”! Foi muito 
gratificante observar o resultado de um programinha 
“fácil” publicado na nossa revista. 
B) Vamos gastar muito, mas muito papel justamente pa- 
ra publicar os programas “quentes”. Se o leitor passar 
todos os programas de 2 números de nossa revista para 
fitas, terá uma quantidade de material cujo preço, no 
mercado, ultrapassa de muito o preço de uma assinatura 
anual (12 números). 
C) A filosofia básica que norteia nossa publicação é 
muito mais “didática” do que “jornalística”, É um dos 
nossos principais objetivos imprimir a esta publicação o 
“espirito de formação” que você propõe em sua carta. 
Como você pode notar, a partir deste número, além de 
continuarmos nosso curso de BASIC-TK para principian- 
tes, estamos iniciando um curso de ASSEMBLY para o 
TK. 
D) As dicas “quentes” já estão começando a surgir. Por 
coincidência, neste número temos uma dica que escla- 
rece justamente um dos usos da variável DFILE que 
você cita em sua carta. 

Muito mais dicas serão fornecidas nos próximos nú- 
meros mostrando aos leitores as inúmeras e insuspeitas 
possibilidades desta pequena maravilha que é o seu TK. 
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A GRAVAÇÃO 
DOS 
PROGRAMAS 






Nilson D. Martello 


Após muitos anos criticando os aparelhos de alta- 
fidelidade em algumas revistas brasileiras e enfrentando 
preconceitos, “rumores” e lendas fantásticas sobre Som 
e o “software” que o acompanha, chego a este novo 
campo dos computadores pessoais. 

Leigo na matéria, alfabetizando-me em Basic, levando 
“surras” homéricas do meu TK, também começo a en- 
contrar pessoas interessadíssimas; atendimento cuidado- 
so e gentil por parte de vendedores de lojas, represen- 
tantes da Microdigital; de firmas particulares que comer- 
ciam micros ou programas, etc, a ponto de me per- 
guntar: 

— Ué?! O que está acontecendo? 

De outro lado, também nesta área começo a encon- 
trar os rumores e lendas fantásticas; exemplo . .. “Um 
gravador cassete, quanto mais barato melhor para gra- 
var seu programa”. 

Daí a me atrever — eu, novato em micro — a trazer 
alguns princípios básicos aprendidos durante os anos em 
eletrônica de Som, para esta área. 


O gravador 


Não é verdade que o gravador “mais barato” seja o 
melhor. E nem poderia ser. O “guincho” gravado no cas- 
sete — as informações do micro - é rico em sons mé- 
dio-agudos. Os próprios fabricantes insistem que, em 
tendo o aparelho um controle de tonalidade, seja colo- 
cado na posição de mais agudo. E é aqui que os micros 
saem-se mal: gravadores de baixa qualidade têm sua res- 
posta de agudos muito pobres. O mesmo se dá com bons 
gravadores, usados (geralmente monoaurais) há longo 
tempo, que o usuário consegue comprar por bom preço. 
Estes gravadores já terão rodado muitos quilômetros de 
fita, desgastando os cabeçotes de gravação/reprodução, 
o que influencia precisamente mais na gama dos médio- 
agudos. 

“Por outro lado, gravadores ''mais baratos” possuem 


= 


limitações mecânicas que logo conduzem à lata de lixo. 
Se as flutuações desses sistemas mais pobres tornam tais 
gravadores imprestáveis para a reprodução de música, O 
mesmo não é tão grave quanto aos sinais digitais. Uma 
certa flutuação (wow e flutter) ainda é suportada galhar- 
damente nos momentos de LOAD e SAVE. Porém as 
funções de rebobinamento rápido (para a esquerda ou 
direita), além da possível interrupção do movimento da 
fita com cassetes semi-defeituosas, tornam o aparelho de 
baixa confiabilidade, isto é, dor de cabeça para seu 
usuário. 


Ainda mais, os aparelhos de baixo preço no geral pos- 
suem marcas estranhíssimas, como “Claudicorder”, 
“Somissuko”” ou “Mankassom””, fabricados na Konxin- 
china, Taboão da Serra ou Trás-dos-Montes. Quando 
chega o momento de consertá-lo e substituir um compo- 
nente defeituoso, O técnico será obrigado a “improvi- 
sar”. Resumo: mais dinheiro jogado fora. 


Por fim, aparelhos baratos não possuem contador nu- 
mérico do andamento da fita. Para quem não sabe, tais 
contadores são de baixa precisão e, geralmente, contam 
as voltas da bobina, dentro do cassete. Por isso raras ve- 
zes a leitura é válida entre aparelhos diferentes. De qual- 
quer forma, quando gravamos diversos programas em 
uma mesma fita cassete, torna-se quase impossível loca- 
lizar O programa específico sem o auxílio dos numero- 
zinhos. 


Sugestões: 


1) Compre um gravador de marca conhecida e respeita- 
da, ainda que não esteja em condições 100%. Uma vez 
que o aparelho tenha representante no país — ou seja 
aqui fabricado por indústria de respeito, que mantenha 
eficiente serviço de manutenção — tudo bem. 

2) Mande examiná-lo antes de começar a empregá-lo. 
O mínimo que se pede é uma boa limpeza e lubrifica- 
ção, com desmagnetização dos cabeçotes e guias me- 
tálicas, assim como substituição dos potenciômetros 
(controles de volumes, de tom) defeituosos ou ruido- 
sos. Aliás, manda o mínimo de cuidado que ao menos 
uma vez por mês os cabeçotes sejam limpos com álcool 
metílico e desmagnetizados. Se os cabeçotes apresen- 
tarem desgastes, mande substituí-los. Não custam assim 
tão caros e prestarão serviço por longo tempo, se bem 
cuidados. Lembre-se: cabeçotes desgastados gravam e 
reproduzem muito mal os sons agudos. 

3) Prefira uma boa fonte de alimentação (ou conversor 
AC/DC, ou Adaptador); o preço das baterias não anda 
brincadeira e, a menos que você empregue baterias al- 
calinas ou de mercúrio, verá o gravador “arrastando 
a fita com a língua de fora”, após pouco tempo de uso. 
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A GRAVAÇÃO DOS 
PROGRAMAS 


Continuação... 





A fita cassete 

Não vamos citar nomes para evitar polêmicas desne- 
cessárias. Porém algumas fitas nacionais — mesmo de 
certo renome e preço — desprendem o material magne- 
tizável que passa a sujar os cabeçotes. A reprodução que 
mais sofre são os médio-agudos, com frequência insu- 
portável. Cabe aqui a consideração feita em reprodução 
de alta-fidelidade: “Se vale a pena ser gravado, vale a 
pena ser BEM gravado”. 

Empregue fitas de renome, de baixa duração (nunca 
as de 90 ou 120 minutos) e preserve-as com carinho. Na- 
da de proximidades de fontes magnetizadoras (transfor- 
madores, cinescópio de TV, etc); no mínimo a 30 em de 
distância, O que assegurará que os sinais gravados não se 
alterarão. O calor, a umidade e a poeira (porta-luvas de 
carro, por exemplo) são os próximos inimigos a serem 
evitados. Não se esqueça de que o próprio micro costu- 
ma aquecer; nada de espantar, é claro, porém não co- 
mece a testar o ponto de fusão do plástico empregado 
na cassete! Da mesma maneira, não toque com os de- 
dos na fita; você não sabe como nossa pele é gordurosa! 
Se houver algum acidente que o obrigue a desmontar o 
cassete, ou emendar a fita, manuseie-a com luvas de al- 
godão. A fita e os cabeçotes agradecerão o cuidado. 


Nível de gravação 

Os indicadores de nível de gravação — ou VU-meter — 
são um auxiliar precário no julgamento do nível de gra- 
vação. A última palavra será dada pelo seu micro e a 
imagem reproduzida no monitor ou TV falarão mais 
“alto”, A limitação dos VU-meter explica-se facil- 
mente: são um tanto “'totalizadores”, ignorando se o 
sinal mais intenso está na gama dos médios, agudos ou 
graves. Isto é. . . isso na melhor das hipóteses, quando 
foram calibrados na fábrica. Comparando equipamento 
similar, e, por vezes, até modelos idênticos, nacionais ou 
importados, já se pode perceber uma total discrepância 
na indicação dos diferentes VU-meters. E claro que não 
deveria acontecer, mas acontece ... 

Pelo mesmo motivo, as gravações em “Automático” 
nem sempre funcionam. Dependendo do circuito ele- 
trônico empregado num específico gravador, da fita em- 
pregada, e finalmente das neuroses do seu micro, O 
LOAD poderá parecer a contento numa situação e inú- 
til em outra. O mais prático é digitar programas curtos 
e testar os melhores níveis de gravação (SAVE) e repro- 
dução (LOAD). 


Conectores 

Já presenciamos um profissional rosnar contra o cabo 
conector entre o computador e o gravador cassete: 

— Está com mau contato! 





Se há tal desconfiança, leve o cabo a qualquer técnico 
de eletrônica para ser consertado; não deixe as coisas 
assim! Ou compre um par de cabos extras, para não ficar 
parado à espera do conserto. De todos os soft, os cabos 
são de longe os mais baratos. 

Em alta-fidelidade, em situações quando trabalhamos 
com sinais minúsculos, empregamos até contatos banha- 
dos a ouro para os conectores. Isto não se aplica aos mi- 
cros. No entanto a boa qualidade dos contatos é impres- 
cindível para se evitar oxidação, principalmente para 
aqueles que vivem à beira-mar ou em locais de alta um!i- 
dade relativa. Gaste um pouco mais num bom cabo com 
conectores bem acabados e evitará as incertezas de um 
mau contato intermitente. 


TV à Cores 

"O micro estraga o TV à cores” — é outra falácia que 
já ouvi algumas vezes, em locais diferentes. 

O sintonizador de seu TV não tem a menor idéia se 
está recebendo um sinal direto do transmissor de TV do 
canal 2, ou do gerador de seu vídeo-cassete, ou de seu 
micro (supondo que essas fontes estejam funcionando 
corretamente, é claro). O que salta aos olhos — ou aos 
bolsos, melhor dito — é que, por menos tempo que você 
empregue o computador, estará desgastando o tubo de 
imagem do televisor. Ora, O componente mais caro é 
precisamente o tubo de imagens. Em se tratando de um 
modelo à cores, custará de três a quatro vezes O preço 
de um tubo branco e preto de tamanho similar. A mão- 
de-obra para a troca é proporcionalmente mais cara tam- 
bém. Além disso, imagine se, por azar, Coincide de o 
aparelho mostrar defeito na hora da telenovela precisa- 
mente logo depois que você acabou de empregá-lo com 
o micro? 


— E as Crianças? 

— Quais crianças? — perguntará o leitor, já alarmado. 

Pois é. .. as crianças da casa — filhos, irmãos menores, 
priminhos de fins de semana — simplesmente se encan- 
tam com o micro. E a ordem: “Não ponha a mão aí!” 

- além de antipática, seria ineficiente. Aliás, mais do 
que antipática, estaríamos sendo anti-pedagógicos. De- 
pendendo da idade da criança, podemos ensinar desde o 
manuseio de simples jogos até princípios de manipula- 
ção do teclado. É simplesmente inacreditável a veloci- 
dade de aprendizado de crianças de seis, sete ou oito 
anos. Também é imperioso que nos convençamos de que 
o micro veio para ficar também na vida das crianças. Se 
gastarmos duas horas em cima de um programa dedicado 
a nossos filhos ou irmãos menores, propondo-lhes 
problemas de aritmética, história ou conhecimentos ge- 
rais, poderemos estar empregando as melhores duas ho- 
ras de nossa vida. 

Mas isso já é outra conversa que pouco tem a ver com 
o Som para os Micros. Ficam aí as sugestões que, espero, 
sejam de utilidades para você. o 
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Quantas vezes, você viu um programa interessante e 
não pode rodá-lo em seu computador, por um problema 
ou outro? Quantas vezes, isso não foi possível, porque, 
apesar do programa estar escrito em BASIC, ele possui 
as instruções que não podiam ser usadas no TK? 

Isso ocorre, porque, embora o BASIC tenha se torna- 
do praticamente um padrão como linguagem de compu- 
tação em microcomputadores pessoais, podemos encon- 
trar certas peculiaridades inerentes a cada modelo, o que 
torna, muitas vezes, difícil transpor um programa de um 
computador para outro. 

Certas instruções aparecem com outra sintaxe e o que 
é aceito por um computador, não é aceito por outro. 
Outras surgem em um e não no outro, como é o nosso 
caso: o TK-82 possui a instrução IF ... THEN, mas não 
possui seu complemento, a condicional ELSE. 


IP... THEN... ELSE 

A instrução IF (condição) THEN (função ou opera- 
ção) é comum a todos os computadores que usam 
BASIC. No entanto, apenas alguns possuem a condicio- 
nal ELSE (função ou operação). 

Esta condição diz que, se a condição que segue a con- 
dicional THEN não for satisfeita, uma outra operação 
ou função deve ser executada. Um exemplo pode deixar 
mais claro. Observe a linha de programa a seguir: 


100 IF X= 0 THEN LET Y = O ELSE 
PRINT X=";X 


Nesta linha de programa, se (IF) a primeira condição 
for satisfeita (X = 0), então (THEN) realizaremos a ope- 
ração que lhe segue (LET Y = (6), senão (ELSE), realiza- 
remos a outra operação (PRINT “X=": X). 

Computadores como o TK-82 ou o TK-85 não pos- 
suem esta condicional. Como incluí-la no seu compu- 
tador? Examinemos o que ela faz. Pela descrição que fi- 
zemos anteriormente, vimos que ela estabelece uma con- 
dição oposta âquela determinada pela condicional IF. 
A primeira idéia que nos vem à mente é transformar a 
condicional ELSE numa linha de programa que expres- 
se uma condição oposta à determinada pela condicional 
IF. No exemplo que mostramos, a linha de programa 
seria transformada em: 


100 IF X= 0 THENLETY=QO 


A 110 IF X<> O THEN PRINT “X=";X 
PO o aii 


A solução foi facilmente estabelecida, porque a con- 
dição estabelecida na condicional IF era a igualdade, 
cujo oposto é a desigualdade (<>).E se a condição fosse 
outra, como, por exemplo, maior ou igual a (>=)? Neste 
caso temos duas opções. A primeira delas é usar a fun- 
ção lógica NOT. Esta função age como um inversor, tor- 
nando a lógica da condição invertida: se antes era verda- 
deira, ela torna-se falsa e vice-versa. Deste modo a linha: 


100 IF X>= 0 THEN LET Y = O ELSE 
PRINT 'X=",X 


Poderia ser traduzida como: 


100 IF X>=0 THENLETY=Q 
110 IFNOT X>= O THENPRINT'X=": 


A segunda opção, é usar O sinal complementar do si- 
nal da condição. Para entendermos o que isso significa, 
vamos escolher uma sequência de números naturais em 
ordem crescente, como, por exemplo: 


VTZIADETES 


Poderemos separar uma parte desta sequência, apli- 
cando uma condição a um dos seus elementos. Por 
exemplo, se desejarmos uma sequência formada por: 


6789 


Poderemos dizer que tomamos todos os números 
maiores ou iguais a seis, ou seja, aplicamos a condição 
“maior ou igual a” é a condição que fornece a parte des- 
prezada da sequência. No nosso exemplo, são os núme- 
ros menores que 6. Assim, a condição “menor que” é a 
complementar a “maior ou igual a””. 

A tabela a seguir fornece todas as condições com seu 
respectivo símbolo e complemento: 


[so [Emas consireno [ ameno 
— 








maior ou igual a 







ME: 


Assim, a linha do exemplo ficaria: 
a 


diferente de 


| 


| 
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100 IF X>= O THENLETY=G 
110 IFX<O THENPRINT'X=";x 


Estas duas soluções resolveram o problema, Entretan- 
to, existem mais duas soluções. Estas soluções, embora 
necessitem um número de linhas maior que as anterio- 
res, evitam o aparecimento de duas condicionais em se- 
guida, usando uma característica da própria instrução 
IF/THEN. Nesta instrução, quando a condição não é sa- 
tisfeita, O programa executa a linha que vem imediata- 
mente a seguir. E se colocarmos nesta linha a função ou 
operação designada pela condicional ELSE? Isto não se- 
ria uma boa solução porque, se fizermos apenas esta mo- 
dificação, a função que segue o ELSE será executada em 
qualquer condição, mas o que desejamos é que ela seja 
executada se, e somente se, a condição estabelecida pela 
condicional IF não for satisfeita. Isto pode ser evitado se 
“saltarmos'” esta condição, por meio de uma instrução 
GOTO, Assim, nosso exemplo ficará: 


100 IF X= 0 THEN GOTO 130 
110 PRINT 'X= ";x 

120 GOTO 140 

[30 LET Y=0 

140 ... (sequência do programa) 


A linha 120 é necessária pelo mesmo motivo que usa- 
mos no salto da linha 100: desejamos que a função ou 
operação designada pela instrução IF original, seja exe- 
cutada apenas se a condição for satisfeita. Se ela for 
omitida isto não ocorre. 

A outra solução é semelhante a esta, só que usa uma 
lógica invertida para fazer a comparação, ou seja, é feita 
primeiro a comparação para se realizar a função designa- 
da pela condicional ELSE. Nosso exemplo ficaria assim: 


100 IF X<> O THEN GOTO 130 
110 LETY = O 

120 GOTO 140 

130 PRINT “X= ;X 

140 ... (sequência de programa) 


Outras Soluções 

As soluções apresentadas neste artigo são de caráter 
genérico e devem funcionar em quaisquer circunstâncias, 
respeitadas as limitações de seu micro. Todavia, se você 
dispuser do diagrama em blocos do programa original 
que você deseja transpor para o TK, você pode, com um 
pouco de habilidade, modificar sua lógica de modo a evi- 
tar o uso da instrução IF ... THEN... ELSE... 





A desvantagem de uma solução obtida desta forma é 
que ela está vinculada a um caso particular e só pode ser 
obtida se você tiver em mãos o diagrama em blocos, ou 
se você conhecer suficientemente a linguagem BASIC, a 
ponto de conseguir fazer esta análise sem auxílio do dia- 
grama de blocos. 

As outras soluções, por outro lado, só dependem de 
você localizar onde aparece a condicional ELSE e aplicar 
uma das soluções propostas. Só surgirão problemas, se 
vários IF... THEN... ELSE... estiverem presentes 
na mesma linha. Mas isso será assunto de um próximo 
artigo. 


Programa Exemplo 

Não convém ficar só na teoria, tente verificar o que 
você aprendeu com o auxílio deste exemplo. Suponha 
que você tem diante de si o seguinte programa, feito pa- 
ra um computador, cuja única diferença entre ele e o 
seu, seja a presença da instrução IF/THEN/ELSE: 


16 REM EQUAÇÃO DE SEGUNDO GRAU 
20 PRINT '"'A=":A 
30 INPUT A 
40 PRINT "'B=": 
50 INPUT B 
60 PRINT 'C="; 
70 INPUT C 
84 LET DELTA = "B**2-4*A*E 
90 REM A PRÓXIMA INSTRUÇÃO CON- 
TEM A CONDICIONAL ELSE 
100 IF DELTA >= 6 THEN LET D=SOR 
(DELTA) ELSE STOP 
110 LET X1=(-1*B+D)/(2*A) 
120 LET X2= (—-1* B-D)M(2*A) 
130 PRINT “AS RAIZES DA EQUAÇÃO 
SÃO: 
140. PRINT “XI=",X1,0X2=", X2 
Certamente você deve conhecer outros algor ítmos pa- 
ra resolver a equação de segundo grau por computador 
melhores do que este, mas o programa que acabamos de 
mostrar, serve apenas para ilustrar o que dissemos sobre 
a instrução IF... THEN .. ELSE... 


Solução 

Mostraremos apenas uma das soluções. As outras fi- 
cam por sua conta. A linha que você vai ter de modifi- 
car é a linha 106: 


100 IF DELTA >= 0 THEN LET D=SQOR 
(DELTA) ELSE STOP 


Vamos dividi-la em duas: uma, que contém apenas da 
condicional IF e da função que segue ao THEN: 


100 IF DELTA >= O THE LET D = SOR 


(DELTA) 
= 
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Outra, formada por uma condicional que vai verificar 
uma condição oposta à da condicional IF da nova linha 
100. Temos duas opções: a função NOT e a condição 
complementar. Usaremos a segunda opção. A condição 
complementar de “maior ou igual a”, de acordo com a 
tabela, é “menor que”. Assim, devemos acrescentar a 
seguinte linha: 


05 IF DELTA< O THEN STOP 


Rode o programa em seu computador, testando-o 
com vários valores de A, Be C. Verifique também, as 
outras soluções, vendo inclusive, se não existe uma outra 
maneira de se elaborar o programa sem recorrer à instru- 


ção ELSE. O diagrama de blocos pode ser facilmente le- 
vantado a partir da listagem, visto que é um programa 
bastante simples. 


Conclusão 

Com o que você aprendeu, tente verificar se alguns 
dos programas publicados em outras revistas para outros 
computadores podem, com auxílio destes “macetes”, 
ser rodados no seu TK. Se surgirem dificuldades em re- 
lação a estas ou outras instruções, escreva-nos contando 
exatamente o que lhe aconteceu, citando o computador 
para o qual foi destinado o programa, a instrução que 
lhe causou problemas, e uma cópia da listagem do pro- 
grama que você tentou “traduzir” para seu computador. 
Este material servirá como ponto de partida para futuros 
artigos e, desde já, lhe agradecemos por qualquer cola- 
boração prestada. o 





DESGRILANDO 
“FLAGS” 


Flavio Rossini 





Temos recebido cartas de muitos leitores pedindo su- 
gestões de como conseguir detectar erros em programas 
muito complexos e cheios de desvios, onde fica difícil 
seguir passo a passo o caminho feito pelo programa. 
Podemos responder estas perguntas com um exemplo 
bastante elucidativo: 


imagine uma linha de trens bem intrincada com muitos 
desvios. 








Suponha que um trem irá passar por uma dada região 
e você gostaria de saber qual o caminho percorrido pelo 
trem. Mas, por algum motivo, você não poderá estar lá 
para ver O trem passar. Imagine então que para cada des- 
vio, haja um mecanismo que levanta uma bandeira se o 
trem passar por lá. Assim, se inicialmente todas as ban- 
deiras estiverem abaixadas, basta verificar QUAIS estão 
levantadas após o trem passar para saber o caminho per- 
corrido pelo programa. Observe o diagrama de blocos ge- 
néricos onde temos 5 desvios. 


figura? 
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No bloco de iniciação (INI), basta acrescentar 
FLAGS abaixadas, o que pode ser feito usando a con- 
venção de (zero) para FLAG abaixada e 1 (um) para 
levantada; desse modo, no bloco INI basta colocar: 


DIM F(10) 
FOR |I=1TO 10 
LET F(l)=0 
NEXT | 


Ou seja, 10 FLAGS, duas para cada desvio. 
Feito isso, basta colocar no início de cada bloco de 


início do bloco 1 > LET F(1)= 1 
início do bloco 2 => LET F(2)= 7 


início do bloco 9 = LET F (9) = 1 
início do bloco 10= LET F (10) = 1 


Após executar o programa, basta verificar o estado 
dos FLAGS: 


FOR | = 0 TO9 

SCROLL 

PRINT "FLAG" |; CBF) 
NEXT | 


Isto deverá ajudá-lo a detectar alguns erros difíceis 
de se encontrar nos seus programas “intrincados”. 
. In another world we could stand on top of the 
mountain with our flag unforled ... 
(Paul McCartney, 1982) 








saída dos desvios uma instrução para “levantar” a ban- e 
deira: 
FITA DO MÊS 
O programa SICOM-16K é produzido pela 1987444 64 bytes no máximo 
MICROSOFT e pode ser rodado em qualquer compu- ENDERELO us sa me res sad 64 bytes no máximo 
tador com BASIC - TK dotado de 16K de RAM. CÓDIGOS DE INTERESSE ... 64 bytes no máximo 
Quem tiver um TKB2 com expansão 64K ou um TEXTO ADICIONAL ........ 64 bytes no máximo 


TK85 de 48K, deve tomar cuidado: como o programa 
foi concebido para 16K e um excesso de memória dispo- 
nível, cria um “grilo”: o computador não aceita dados 
novos. A solução, enquanto a MICROSOFT não lançar 
um SICOM especial para estes casos, é enganar o com- 
putador. Para isto basta alterar o valor da variável do sis- 
tema RTP (RAM TOP) fazendo: 


POKE 16389, 192 
NEW 


(NEW LINE) 
(NEW LINE) 


Após este procedimento o computador “pensa” que 
tem apenas 32K de RAM e, ao ser carregado com o 
SICOM, passa a operar tranquilamente. 

O SICOM é um programa versátil que pode ser visuali- 
zado como um fichário. Cada ficha já tem previamente 
definidos os seguintes campos: 


(cada byte = 1 caractere incluindo espaços vazios) 


A quantidade de fichas armazenáveis é em função do 
número de bytes consumidos em cada uma (lembrando 
ainda que cada ficha consome 5 bytes adicionais para se- 
parar Os campos). 

Vamos verificar então quantos bytes podem consumir 
uma ficha para uma aplicação típica, por exemplo, ca- 
dastro de clientes. 

Inicialmente carregamos o SICOM no computador e 
digitamos 


GOTO 1 
Nunca devemos digitar RUN, pois há uma variável 


que é apagada da memória tornando impossível a ope- 
ração do programa. Neste momento, aparecerá na tela 


cmo 
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o. “menu” principal do programa (fig. 1). É aconselhá- 
vel tirar a fita do gravador e armazená-la em lugar segu- 


ro, ao abrigo de campos magnéticos, etiquetando-a 
como 





“fita mestre avó” 


ME Z=PROX. ITEM 
=FORMATO:F 
G-ESTATIST. 


Figura 1 


Convém agora fazer uma cópia que denominaremos: 


“fita mestre mãe” 


Digitamos 5 e o computador pergunta que nome que- 
remos dar ao fichário (fig. 2), mostrando em vídeo re- 
verso, qual ítem do menu está sendo ativado (no caso 
o 5). 

Vamos digitar MICROHOBBY (NEW LINE), A seguir 
data e hora. Digitamos 


20/06/83 








Figura 2 


O computador manda agora a mensagem: 


ENTRE NL SE FITA PRONTA 





Colocamos então, o gravador na posição gravar (REC) 
e com a fita virgem já correndo, apertamos NEW LINE. 
Os riscos característicos do SAVE aparecerão na tela da 
TV. Após 1,5 minutos a fita mãe estará pronta. Convém 
guardá-la em lugar seguro e começar a operar as fichas. 

Vamos agora introduzir algumas fichas de assinantes 
da revista no computador. 

Digitando 9 temos o número de fichas de bytes livres 
(fig. 3): 


FICHAS Q BYTES LIVRES = 


12495 









G=INSIRA S-BSCA  ESPROX PAG 
I=ALTERA 4 =IFrPRIME 7=PROX. ITEM 
2=CANCELA S=SEVE B=FORMATO:-F 
Ê e G=ESTATIST. 
FICHRS=8 EvYTES | rURES=1240S 


Figura 3 


Digitando 8, podemos escolher 


o formato do 


“display” na tela da TV (fig. 4). 





Figura 4 


F = COMPLETO (mostra todos os campos) 
| = ETIQUETA (mostra apenas NOME e 
ENDEREÇO) 


Tanto o formato F quanto o L mostram apenas uma 
ficha de cada vez na tela, Para exemplificar, vamos digi- 
tar duas fichas (nos formatos F e L, uma vírgula no 
meio do campo, produz a impressão do que a segue na 
linha seguinte). Vamos escolher o formato F e digitar 


Da” 2600 





ão nd 
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D.A seguir, vamos introduzir os dados da primeira ficha 
(fig. 5). 








FORMATO. F 


ANTONTO FERRE IRA 





pq PESE 7,8905370 BOTUCATU C 


Figura 5 


Como estamos no formato F a ficha aparece completa 
com nome e endereço do assinante, data de vencimento 
da assinatura e telefone (fig. 6). Note também o efeito 





S=PROX . - 
=IMPRINE 7=P20X. ITEM 


— 3=Bt5C9O 
1=ALTERA 
B=CANCELA S=SAVE 8=FORHMATO:F 


S=ESTATIST. 


ANTONIO FERREIRA 
R. MARGARIDA df, 
89875 BOTUCATU CE 
HAIO&S 

543.5765 


Figura 6 


da vírgula no campo do endereço. Vamos agora introdu- 
zir uma segunda ficha (fig. 7). Digitando agora 9, temos 
idéia de quantas fichas estão no arquivo e quantos bytes 
livres ainda restam: 


FICHAS = 2 


BYTES LIVRES = 12347 








Q=INSIRA S=BUSCA ' &E-PROX. PAG 
L=ALTERA A-IMPRIME ?Z=PROX. ITEM 
2=CANCELA S=SAVE B=FGRMATO:F 


G=ESTATIST. 


HISE* SDRUUS 

AV.DOS CORVOS 675 RP.TI, 
99201 INDAIGTUER GO 
SUNS A 


?78.8555 


EA Ee de SS TT TT ——— — DD — se Da. 
Figura / 
Um rápido cálculo, permite verificar que neste rítmo 
podemos armazenar ainda umas 170 fichas. Como ca- 
dastro, isto já é um número considerável, especialmente 
levando-se em conta a função de busca do programa. 
No formato L as mesmas fichas teriam aspecto da 
fig. 8. 


JOSEF SDRUWS 
RU. DOS CORVOS Gl EP. 71, 
90081 INDAIRTUDS GU 


CD — 7 ME TOS E e Sm sS q SE ea ty 

Figura 8 

Já no formato A, | ou T a tela mostra uma ficha por 

linha: na primeira metade da linha, os primeiros 16 

bytes do nome e na segunda: metade, os primeiros 16 
bytes do campo selecionado: 


A = endereço 
| = código de interesse 
T = texto adicional 


A fig. 9 mostra o display nos 3 casos. 


Qualquer erro na inserção de uma ficha, pode ser cor- 
rigido pelas funções: 


1= ALTERA 
2 = CANCELA 


Para procurar uma ficha basta digitar 3. Aparecerá 
um menú secundário, solicitando o campo a ser pesqui- 
sado: 


N = NOME A = ENDER. 
T=TEXTO | = INTS 


Digitando a letra correspondente, o programa pede 
para que você entre com os detalhes do campo em ques- 
tão. Os campos N, A e T comparam o que você digitou 


resets 
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ANTONIO FERREIRA R.MOGRGGRIDA 47. 
JOSEP SDRULS RU.DOS CORVOS & 


ANTONIO FERREIRA HNarusa 
JOSEF SDRUUS UNI S 


ANTONIO FERREIRA S4d3.8B765 
JOSEP SDRULS fã .55a8a 


Figura 9 


como detalhe “AN”, serão selecionadas todas as fichas 
cujo campo N comece por AN. 

Se você está no formato F ou L aparecerá uma ficha 
por vez. Para ver a seguinte, basta digitar 


6 = PRÓXIMA PÁGINA 


No formato A, | ou T você verá o resumo de até 12 fi- 
chas. Digitando 6, você verá outra lista, digitando 7, vo- 
cê produzirá um efeito análogo ao do SCROLL. 

A qualquer momento, você pode tirar uma cópia da 
tela, na impressora, usando a função 4. 

A busca no campo | é a mais sofisticada. Ex.: ao pedir 
detalhes, o computador compara todos os caracteres di- 
gitados, com todos os caracteres do campo |, indepen- 
dentemente de sua ordem. Todas as fichas que contém 
os caracteres indicados na busca, são selecionadas. Note, 
que isto, permite classificar cada ficha em até 64 cate- 
gorias diferentes. 

S não é só em cadastro de nomes que o SICOM re- 
sua | utilida de ; le pode ser usado em qualquer tipo 


o 
Is 


de arquivo, como por exemplo, bibliografia, agenda te- 
lefônica, etc. Para informações esquemáticas até umas 
500 fichas podem ser gerenciadas pelo SICOM, usando 
seu sistema de BUSCA. 


Para outras finalidades, é conveniente mexer um 
pouco no programa. O título dos campos, por exemplo, 
pode ser alterado mexendo-se nas linhas 505, 515, 
525, 535, 606 e 1315. 


Por exemplo, para preparar fichas bibliográficas, estas 
linhas poderiam ser mudadas para o indicado na figura 
10. 





SOS LET P$="DOFERE 

5180 GOSULE RE 

S1S LET Ps-="eFENES 

528 GOSUB RE 

So» LET D&=' Ile Sra 
530 GOSTE RE 
Sa EET PR": 
















LITOR+FOBRA 
DESSE RES da 


Figura 10 


Convém alterar apenas os nomes dos campos sem alte- 
rar as letras de endereçamento para não ter que modifi- 
car muito profundamente o programa. 


Uma vez atualizado o arquivo, ele deve ser gravado 
com a data e a hora (função 5) em uma fita virgem. A 
cada atualização o programa deve ser transferido para fi- 
ta mas sem apagar o registro anterior. Desta forma qual- 
quer “grilo” com o último programa implica na perda 
apenas das últimas atualizações. 


Como este programa já está no mercado há um certo 
tempo, com certeza algum leitor já deve ter descoberto 
alguma utilização bem original ou algum aperfeiçoamen- 
to útil. Estamos à espera, portanto, de alguma colabora- 
ção neste sentido para podermos publicá-la num dos 
próximos números de MICROHOBBY. o 





PROGRAMA 


DO MÊS 
ANTIMÍSSIL 





Muitos de nossos leitores possuem outros microcorm- 
putadores que usam uma lógica compatível com a do 
TK. Alguns deles, como os primeiros modelos do 
NEZ8000 da Prológica ou ZX81 da SINCLAIR têm ape- 
nas 1K de RAM. Para eles estamos publicando este pro- 
grama que é uma verdadeira acrobacia em termos de 
economia de memória. 

A digitação deste programa tem então duas utilidades: 
uma é o próprio programa em si, que gera um joguinho 
divertido (dentro, é óbvio, das limitações de memória). 

Um míssil (VW) desce segundo uma trajetória que so- 
fre desvios aleatórios. Você comanda um anti-míssil 
terra-ar (+) que deve destruir o míssil. No fim do jogo 
aparece o número de mísseis destruídos. 

Para guiar seu anti-m íssil, você usa as teclas: 


5 tt 

6 Y 

7 À 

8 e 

ou seu joystick. 
A outra utilidade é o aprendizado de alguns “tru- 


ques” para economizar memória. 
Ao digitar 


GOTO VAL "20" 


ANT I-MISSIL 





OHOBBY 83 
IPI TO VAL 
fl. . ea .. 


da pi 


“e 63 .. 


A,B; id ué 
A e 


B .s . 
Z=INT tRBNDEVAL “S") 
É=. 


=X+1 
LET Y=Y+(Z=VAL “ICI - CZ=VAL 
THEN LET A=A+ 


A ii B=B+ (INKEY$="5S") - £LINKEY 
“e LET A=R- CINKEY g="7") 

&i IF A=X AND B=Y OR X>=22 TRE 

N GOTO VAL “2 

ce GOTO vai. 


es CLS 
R=X THEN NEXT 


od IF N 
25 IF X=VAL “22º THEN PRINT N 


pd pis pp 
4 DOT) DUO OO 3 CEC Pe o DO fed 
T 
x 
Z 
nu 
ol 


1 
“Bs 
18 IF INKEY&g&="6" 





ao invés de 
GOTO 20 


você está economizando 3 bytes! 
Da mesma forma, ao fazer 


X= Pl/PI 
ao invés de 
X=1 


você livra 4 bytes. 
Para se convencer disto, antes de digitar o ANTI-MIS- 
SIL, digite o seguinte programinha: 
do 
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PROGRAMA DO MÊS 
ANTIMÍSSIL 


Continuação... 





1 GOTO 2 
2 PRINT PEEK 16404 + 256 * PEEK 16405 
— 16510 


Ele indica, na tela, quantos bytes de memória o pro- 
grama está ocupando. Anote o número indicado e mude 
a linha 1 para 


1 GOTO VAL "'2” 


Compare o número de bytes ocupados agora com o 
valor obtido anteriormente. 


PROGRAMA DO 


ALTA RESOLUÇÃO 
NA IMPRESSORA 
DO TK 


Quando fazemos um gráfico na TV usando o 





PRINT AT 


estamos gerando um desenho, que tem amplas possibili- 
dades nas nuances (pois podemos utilizar vários caracte- 
res diferentes), mas que tem baixa resolução. Como os 
caracteres gráficos podem ser dispostos ao longo de 32 
colunas e 22 linhas, (ou no máximo 24 usando as linhas 
de edição), temos uma matriz gráfica de no máximo 


24 X 32 


posições. 
Já a instrução 


PLOT 
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Os primeiros modelos do NEZ8000 e do TK82-C não 
tinham SLOMW. Por isso, quem tentou rodar o programa 
BARÃO VERMELHO do nº & num destes equipamen- 
tos deve ter notado que não funciona, a menos que se 
coloque uma instrução: 


PAUSE 30 


após cada instrução PRINT. 

No programa ANTI-MISSIL este cuidado também é 
indispensável se seu computador não tiver SLOW. Por is- 
so acrescente a linha 


12 PAUSE 30 


Haverá O inconveniente da tela ficar piscando, mas as- 
sim mesmo você poderá jogar e se divertir. o 





MÊS 


permite uma melhor definição gráfica, pois cada unidade 
por ela gerada ocupa 1/4 da área ocupada por um carac- 
tere. Obviamente, perdemos a possibilidade de “semi- 
tons”, pois a unidade gráfica do PLOT é única. Em com- 
pensação os desenhos podem ser muito mais detalhados, 
pois, a matriz gráfica tem agora 


44 X 64 


posições. 

Este é o máximo de resolução que podemos obter na 
tela da TV. Em breve, teremos no Brasil, a produção de 
um periférico para o TK, que permitirá a elaboração de 
desenhos com alta resolução na tela de TV. Por enquan- 
to devemos nos contentar em fazer estes desenhos na 
impressora TK-PRINTER. 

O programa que apresentamos a seguir, tem uma sub- 
rotina que altera o comando LPRINT para a impressora, 
permitindo a impressão de uma matriz de 


256 X 256 
posições. 


No TK-85 ele roda tranquilo, mas no TK-82 é indis- 
pensável uma expansão de pelo menos, 16K. 





PROGRAMA DO MÊS 
ALTA RESOLUÇÃO NA 
IMPRESSORA DO TK 


Continuação... 








1 REM UBHRND.UHRNDE .TON .. 
2 POKE 15389,124 
3 CLS 
4& IF, NOT PEEK 16355+256 +PEEK 
16359=51744 THEN STOP 
S FOR I=0 TO 112 
POKE 31744 +I,PEEK (2161+1) 
e NEXT EI 
8 POKE 318090,653 
9 POKE 31857,244 
10 POKE 16517,95 
11 POKE 16524,79 
12 DIM Ag(32,2561 
15 FAST 
14 LPRINT “4” 
15 LPRINT “GRAFICO EM S3-D” 
20 LET x1=128 
390 LET X2=X1+4D 
42 LET vwY1=128 
SO LET vw2=-352 
60 FOR B=0 TO 127 
"O LET X4a=BE+2 
84 LET M=-Y1 
99 LET A=50R (X2D-Xdl 
180 FOR I=-A TO A STEP 48 
110 LET R=SOR (X4+I+1I)/X1 
120 LET F=COS (1935R) *t41-R) +52 
130 LET Y=I/S+F+v2 
140 IF w<=M THEN Goro 188 


LOS LET X=X21+B 
170 GOSUB 9989 
ara LET X=X1-B 
175 GOSUB q980 
1580 NEXT I 

1990 NEXT B 

195 GOTO 95988 

9980 REM PLOTA (X,YW) NA MATRIZ 


AG 
9981 IF xXx<0 OR X>»255 OR v«<B8 OR Y 
+255 THEN RETURN 
39982 LET C=1+INT (X.;8) 
95985 LET R=256-INT Yw 
93984 POKE 16526,C0ODE A&IC.R) 
9985 POKE 16527,2+*x(8%C-INT Xx-32) 
“finds LET Ag(C,R) =CHR& (USAR 16514 


9987 RETURN 

9985 REM IMPRIME & LINHAS DE 
CADA VEZ 

9989 FOR I-Q2 TO 246 STEP 5 

9990 FOR J=1 TO 32 

9991 FOR K=1 TO 8 

99942 PORE 532255+K+5+%(J-l;j «CODE A 

G(I,K+TI) 

9995 NEXT K 

9994 NEXT 

9995 FOR H=Q TO Bi 

9996 qtas in 


ExT 
9998 LET HPRINT=USR SiT4s 
9993 NEXT I 





EXEMPLO: 
dl 
GRAFICO EM 3-D 





A linha 1 contém, após o REM, uma sequência de ca- 
racteres cujos códigos constituem uma sub-rotina em lin- 
guagem de máquina. 

Esta linha deve ser digitada com todo o cuidado, pois 
por qualquer errinho põe tudo a perder. 

Para facilitar, colocamos a seguir, a lista dos caracte- 
res que a constituem com o número de seu código (em 
caso de dúvida consulte o apêndice A do manual do TK). 





san DRC 


TAN 


C0ODIS5=55 
CODIGO=145 
CODIGO =S4 
CODIGO=27 
CODISO=5S 
CODIS5=12453 
CcoDbIGO=s4 
CODIGO=1279G 
CoOoDISGO=S 
CODIGOS 
CODIGO=27 
CcoDITIGO=781 
CODIGO=27 
CODIGO=37 





Esta sub-rotina permite a superposição de um gráfico 
sobre outro, fazendo a operação lógica OR entre os dois 
bytes nos endereços 16526 e 16527. As linhas 2 e 3 re- 
servam um espaço na memória e a linha 4 bloqueia o 
programa, no caso desta reserva não ter se efetivado. 
Neste caso é conveniente se salvar o que foi digitado 
em fita e a seguir dar ao computador os dois comandos. 


POKE 16389, 124 (NEW LINE) 
NEW (NEW LINE) 


Em seguida, recarregar o programa já digitado no 
computador. 


cado. 
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PROGRAMA DO MÊS 
ALTA RESOLUÇÃO NA 
IMPRESSORA DO TK 


Continuação... 





As linhas seguintes, até a 11 completam a primeira 
sub-rotina e tomam a sub-rotina LPRINT da ROM do 
TK ea alteram para as finalidades deste programa. 

A matriz A$, dimensionada na linha 12, ocupa 8K da 
memória e armazena a posição dos pontos a serem “plo- 
tados” na impressora. 

A sub-rotina de 9980 a 9987 registra as coordenadas 
Xe Y na matriz A$, e a subrotina de 9988 a 9999 impri- 
me os pontos (8 linhas de cada vez). 

No programa que estamos publicando as linhas de 13 
a 195, geram o gráfico tridimensional, que o pessoal de 
gráfica batizou de “cogumelo”. Alterando apenas estas 
linhas, mas deixando intactas as linhas de 1 a 12 e 9980 
a gráficos em alta resolução. Podem até ser geradas men- 
sagens em maiúsculas e minúsculas, com acentos e cedi- 
lhas. No gráfico do cogumelo você poderá alterar o for- 
mato mudando as linhas 100 e 120. 








ESTE GRAFICO FOI OGSTIDO 
DO Bã LINHOS 102 E 
108 FOR I-A TO 


BLTERBAN- 
122à PARRA: 

-" STEP 2 

120 LET F=00OS (lGsRIisxIii-RI*2 


CUIDADO, SEL PROCESSAMENTO DEMORA 
RPROXIMBDAMENTE uma HORA 


Após rodar O programa, a sequência da linha REM fi- 
ca acrescida automaticamente de outros caracteres. 

Aconselhamos, antes de rodar o programa, salvá-lo em 
fita uma ou duas vezes. Uma vez rodado, sua gravação fi- 
cará muito mais demorada, pois ele armazenará também 
os 8K da matriz A$. Isto é muito bom, quando você não 
quiser perder muito tempo para gerar a matriz outra vez. 
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Este processo é demorado, pois você, estará produzindo 
uma matriz de 


206 X 256 = 65536 posições 


Obviamente, por mais bonitos que sejam os gráficos 
obtidos por este programa, você não vai querer ficar o 
tempo todo desenhando “cogumelos”; para gerar gráfi- 
cos de sua invenção, é necessário compreender a “arqui- 
tetura”” da matriz AS. 

Ela armazena 256 linhas e 256 colunas, mas na linha 
12, seu dimensionamento é 


12 DIM As (32, 256) 


ou seja, 256 linhas, mas, apenas 32 colunas. 

Isto é fácil de ser explicado: cada coluna de matriz AS 
contém 1 byte, ou seja, 8 bits. Como cada ponto está as- 
sociado a 1 bit temos: 


32 bytes X 8 bits/bytes = 256 bits 


A posição dos pontos na matriz é dada pelas suas 
coordenadas (X, Y): 


(0, 255) (255, 255) 
$ 


(255, 0) 
Fig. 2 


A posição dos elementos da matriz A$ é dada pela fi- 
gura 3. 


AS (1,1), A$ 12,1) 
AS (1,2) 


AS (1, 256) AS (32, 256) 








PROGRAMA DO MÊS 
ALTA RESOLUÇÃO NA 


IMPRESSORA DO TK 


Continuação... 


Como já dissemos, cada elemento AS representa 1 li- 
nha e 8 colunas (uma por bit). 

Vamos recordar um pouco a estrutura de um byte (fi- 
gura 4). 


mfefa[pefo jaja (o 


Se quisermos, por exemplo, imprimir um elemento 
qualquer da matriz, pontos nas colunas dos bits 6, 4,2 e 
1, deixando os outros em branco, deveremos atribuir ao 
byte correspondente o valor 










64+ 160+4+2=86 


Assim, se por exemplo, quisermos desenhar no canto 
superior esquerdo o que está representado na figura 5. 


128+32+8+1=169 
128+32+8 = 168 


128+64+32+16+8+2+1 = 251 
32 +1=33 
32+1=33 





deveremos fazer o seguinte “miolo” de programa: 


200 LET A$ (1,1) = CHRS$ (169) 
210 LET Ag (1, 2) = CHR$ (108) 
220 LET A$ (1,3) = CHR$ (251) 
230 LET Ag (1, 4) = CHR$ (33) 
240 LET A$ (1,5) = CHR$ (33) 
25) GOTO 9988 


Deixamos agora à imaginação do leitor, o desenvolvi- 
mento de ulteriores aplicações. Apenas a título de exem- 
plo, vamos dar o “miolo” de programa que gera uma sé- 
rie de curvas isotérmicas de um gás no diagrama de 
Clapeyron. 





L2EDIM A$&:52,0D565) 

15 FAST 

14 LPRINT “TRANSFORMAÇÕES ISOT 
ERHICAS“ 

15 LPRINT TAB 12; "PRESSAO X vVO 
LUME 
28 FOR I=i TO 256 
350 LET RG 2, =CNRS 


so NEXT 
SO FOR I=1 TO 256 STEP 52 


t32) 


6a LET Ali, TI) =ChHR& (224) 
62 NEXT II 

Sá FOR I=i TOS? 

O LET Ag(iI,2539) =CHR$& (255) 
2 NEXT TI 

92 FOR I=i TO 32 STEP 


Ea 
1920 LET AgG(I,2dO) =CHRG (155) 
NEXT II 


2090 LET U=-dBS6 

2+*0 FUR P=U TO 4 FU STEP 
ceo FOR A=9 TO gde 

230 LET Y=P/X+5 

240 GOSUE a9ogs0o 

So NEXT X 

260 NEXT P 

e?!ga coro 9988 


SEU 


TRANSFORHMACÕOES ISOTERMICTAS 
PRESSBO X VOLUME 
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DICAS 
A FITA BRINDE 





A fita brinde que foi enviada para nossos assinantes 
contém dois programas interessantes: PULGA para 2K 
e SIMULADOR DE VÔO para 16K. 

A fita está gravada dos dois lados para maior seguran- 
ca. Com relação ao programa SIMULADOR DE VÔO 
cabem duas observações: 

1) Querendo mudar o “plano de vôo” devemos digitar 

M (mapa) e a seguir B. A nova cidade escolhida apare- 


DICAS 


COMO MEMORIZAR 
A TELA 


















































(Pierluigi Piazzi) 


A RAM do TK é estruturada de uma maneira um 
pouco diferente da de outros microcomputadores: o 
“display”, ou seja, a tela não é armazenada num ponto 
fixo da memória, mas movimenta-se para cima e para 
baixo em função do tamanho do programa. O endereço 
da primeira posição do arquivo da imagem é uma variá- 
vel do sistema denominada de DFILE e seu valor, está 
armazenado nos Bytes dos endereços 16396 e 16397. 


Para ler o valor de DFILE (D = Display: tela — FILE: 


arquivo), basta fazer: 


PRINT PEEK 16396 + 256 * PEEK 16397 


Se seu computador estiver “vazio”, ou seja, sem ne- 
nhum programa armazenado, você obterá 


16509 
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cerá piscando no mapa. Digitando V aparecerá nova- 
mente a cabine. Nas proximidades do pouso digitar V 
novamente: a cabine desaparecerá e em seu lugar ve- 
mos o campo de pouso em perspectiva. 

2) No TK85 há um pequeno grilo facilmente solucioná- 
vel: 
a linha 


8390 RETURN 
deve ser substituída por 


8390 GOTO 8391 
8391 RETURN 


Para isto basta dar um BREAK no programa e listá-lo. 
Se não fizermos isto, o programa sumirá de RAM após o 
primeiro acidente (o T K85 é muito sugestionável!). 

O programa assim alterado poderá agora ser armaze- 
nado em HIGH-SPEED. o 


que é o endereço do primeiro byte do programa. 
Mas se você fizer: 


1 PRINT PEEK 76396 + 256 * PEEK 16397 
e a seguir RUN 
você obterá 
16550 
pois o programinha correspondente à Linha 1 que você 
digitou ocupou 41 bytes e portanto deslocou a memó- 
ria correspondente ao arquivo da tela de 41 bytes 
(fig. 1). 
COMEÇO DA RAM DO TK 
Programa de Arquivo 
41 bytes da tela 


16509 16550 












Variáveis do sistema 
(incluindo DFILE) 







16384 


Vejamos agora, como transferir o conteúdo do arqui- 
vo da tela para uma única variável. 

Em muitos programas formam-se na tela desenhos ou 
letreiros gastando para isso muito tempo de proces- 


conste 








————————————————————————————— oe 


DICAS 
COMO MEMORIZAR 
A TELA 


Continuação... 





samento. Para reproduzir estes desenhos sem gastar no- 
vamente todo tempo de processamento, podemos adotar 
como sub-rotina o programa a seguir: 





J+32 +1I) =ChHR& PEER (€ 
SO*+PEEK 16597) +J+55+ 





A variável A$ terá 704 elementos pois 


22 linhas x 32 colunas = 7004 posições 
Na linha 3030 o final é realmente 
«J+33*) 


e não 32 pois ao fim de cada linha da tela há um byte de 
NEW LINE. Esta sub-rotina deve ser chamada por algu- 
ma instrução do próprio programa e nunca por um co- 
mando direto. 

Toda vez que você dá um comando direto ao seu TK, 
seu primeiro efeito é justamente apagar a tela. Desta for- 
ma ao começar, a sub-rotina copiará uma tela vazia. 

Você poderá então intercalar no seu programa uma 
instrução do tipo 


1510 IF INKEYS$ = “P” THEN GOTO 3000 


desta forma, ao apertar a tecla P seu programa parará e a 
tela ficará inteirinha copiada na matriz A$. Para checar 
basta dar o comando direto 


PRINTAS 


e seu desenho, que demorou tanto para ser elaborado, 
reaparecerá em uma fração de segundo! 

Dispondo de bastante memória, você pode trocar o 
A$ das linhas 3000 e 3030 por B$ e repetir o processo. 
Cuidado apenas para nunca digitar RUN ou CLEAR! 

Oportunamente você poderá fazer um outro pedaço 
de programa para imprimir A$, B$, C$ e assim sucessiva- 
mente. 

Outra vantagem deste processo está no fato de poder 
arquivar todos os desenhos feitos em fita magnética, 
pois ao dar um “SAVE” você estará armazenando as ma- 
trizes A$, B$,... S 


LIVROS PARA Th, NE Z, CP 


TRINTA JOGOS 


INCLUINDO PROGRAMAS EM CÓDIGO LIS 
TADOS POR IMPRESSORA 


JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE, PAREDÃO, 
DEMOLIDOR, VELHA, [ASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MÁGICO, SENHA, BAN 
CO IMÓBILIÁRIO, BOMBARDEIO, SOM 
POR SOFTWARE, ETC.... 

LANÇAMENTO 


APLICAÇÕES SERIAS 


FOLHA DE PAGAMENTO, BALANCETE, CON 
TAS A RECEBER, A PAGAR, CORREÇÃO 
MONETÁRIA DAS CONTAS DO BALANÇO, 
CORREÇÃO DAS CONTRIBUIÇÕES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCÁRIA, TABELA PRICE, ESTA- 
TÍSTICA,CORREÇÃO DE PROVAS, EDITOR 
DE TEXTOS,RAM TOPER , SUB-ROTINAS 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES, ECONOMIZAN 
DO MEMÓRIA, ETC... ETC... 


Cr$ 3.000,00 


45 PROGRAMAS 


ARQUIVOS, ESTOQUE, PLANO CONTÁBIL , 
AGENDA TELEFÔNICA, INVASORES, APAGUE 
A TRILHA, CAÇA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS, TABUADAS, 
CONVERSÃO DE COORDENADAS, MÉDIA,FI 
BONACCI, PROGRESSÃO, BIORRÍTMO , RE 
NUMERADOR DE LINHAS EM CÓDIGO, ETC. 


JA. 


73 EDIÇÃO Cr$ 3.000,00 


MICRON 


ELETRÔNICA COMERCIO E INDUSTRIA LTDA 


Av. S. Joao, 74 - Telefone 22-4194 - 5. Jose dos Campos 


Est. de Sao Paulo 
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PROGRAMA 
DO LEITOR 


“O POETA” 


Bernardo Cláudio Stein 


Para pessoas que não estão familiarizadas com compu- 
tação, O microcomputador parece uma máquina inaces- 
sível, misteriosa e fria. 

O programa “O POETA” que ora apresentamos aos 
leitores, foi criado para ser utilizado por pessoas sensi- 
veis e poéticas. Gaste um pouco do seu tempo e digite o 
programa no seu TK85 ou TK82 com expansão. 

Este programa, gera lindas poesias, a partir de 17 ex- 
pressões que você mesmo escolhe e introduz no compu- 
tador. 

Vejamos como .. 

1) Digite a listagem apresentadas na “figura 1º 
2) Passe o programa para o gravador 


a) Entre “GOTO 3200" 

b) Coloque o gravador em “REC” 

c) Entre “NEW LINE” 
3) Após a gravação, O programa apresentará o Menu da 
“Figura 2”. 
4) Escolha a Opção número 1. 
5) O programa convida você a entrar com 17 expressões 
à sua escolha. 

a) escolha uma palavra (ou conjunto) 

b) entre com ela no computador 

c) entre “NEW LINE” 

d) continue com as expressões até completar 17. 
6) O programa volta ao Menu principal. 
7) Se você quiser rever as palavras escolhidas entre com a 
Opção 2. 
8) Você verá, então, por alguns segundos, os 17 termos 
escolhidos e depois retorna ao Menu. 
9) AGORA O GRANDE MOMENTO... 

Escolha a Opção número 3. 

O computador gerará uma poesia usando as 17 ex- 
pressões que sua veia poética escolheu. 
10) Se você possuir a TK-PRINTER poderá guardar pa- 
ra sempre aqueles melhores poemas que o computador 
gerou: basta digitar “COPY” e “NEW LINE” quando a 
poesia estiver apresentada na tela, 
11) Para voltar ao menu principal entre “GOTO 3210" 
e “NEW LINE". 
12) Se você quiser gerar logo outro poema entre 
"GOTO 2' e "NEW LINE". 
13) Você pode armazenar para sempre o programa 
COM os 17 termos escolhidos: 

a) Escolha a “Opção nº 4” do Menu 
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VOCE, COM SUA VEIA POETICA, IRA 
CRIAR 17 PALAVRAS SUE sSERAOG 
USADAS POR HIM PARA GERAR LINDOS 
POEMAS 


ENTRE COM ABAS PALAVRAS, 
1. 


UMa à UMa 


PALHURAS QUE ssder: E E 
RT RECREIO PD 


SE APARECER & MENSAGEM DE ERRO 


2/3034, ENTRE GOTO 3212, APOS 1. 
1. O SOL 

o . A BRISA 

3 a AS ONDAS 

a BRILHANDO 

a R CHUUR 

S . CAINDO 

Pa AS 

S . HORAS PASSANDO 
G . CREPUSCULO 

18. SEMPRE 

12. NUNCA 

12. com 

13. SEM 

lá. CELT 

15. ELA 

16. BEIJOS 


aa CR MOS 





QUANDO AR POESTA TIVER PREENCHIDO 


A TELA, ENTRE “GOTO 
DEPOIS SM SIP ATT Ig e DS IC ISA DIST OPTE Eee 


AS 


ELA O SOL 
CRINDO BRILHENDO GCRILHANDO AR5 


ELE ELA AS ONDAS 
BRILHANDO NUNCA COM HORAS PASSAN 
DO LAGRIMAS ELE SEMPRE 


RS ONDAS 
BEIJOS ...«.8 CHUVA BEIJOS SEMPRE 
LAGRIMAS 


CRINDO 





figura 1 


b) O programa será então gravado com as palavras es- 
colhidas. 
14) Se você quiser carregar o programa na memáória do 
TK entre com LOAD “O POETA” ou LOAD " ” 
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PROGRAMA DO LEITOR 
“O POETA” 


Continuação... 








Q FOETA 
EE acendEsRsba 


VOCE DEF... 


1. CRIAR UMA NOVA POESIA 
o e. REVER Pã PALRURAS QUE 
ESTAD NA MEMORIA 
S e. GERAR UMB POESIP COM 
AS PRLAURAS 
QUE ESTDO Na MEMORIA 
4. GRAUBR AS Pal BURAS 


DA 


HEMOR IR 






“Fib.e 


15) Durante a utilização do programa evite entrar com 
“RUN”, pois isto apagará todos os 17 termos da memó- 
ria. Neste caso, se você escolher a “Opção nº 2” será 
apresentada a mensagem de erro 2/3030. 

Neste caso entre com “GOTO 3210' e "NEW LINE” 
e escolha a “Opção nº 1º do Menu, 

Após algumas tentativas, você perceberá a conveniên- 
cia de utilizar substantivos, já com seus adjetivos, verbos 
no infinitivo e truques similares. Desta forma você evita- 
rá erros de concordância muito evidentes. Certa vez, O 
físico James Jeans disse que, se pudéssemos acorrentar 
dois chimpanzés a um piano e eles pudessem bater nas 
teclas ao acaso indefinidamente, com certeza, após al- 
guns milhões de anos, tocariam a ba Sinfonia de 
Beethoven. 

Ajudando um pouco o seu TK, escolhendo locuções 
bem fortes poeticamente, cercados de expressiva aura 
conotativa, você poderá gerar poesias incríveis (no meio, 
obviamente, de ridículos fracassos). 

Muito bem, agora mãos à obra. 

Quem sabe, você poderá se tornar um novo Olavo 
Bilac; com a ajuda do seu “TK””, obviamente. 

a 
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1 REM 


Eu 
= 


R ae Pena TELA. 
CPRINT “re 


3 


1” LET J=IHNT 
= THEN PRINT í".. 
eo IF t>=1i AND 


IF J>=4 THEN 


15 


1808 
So 


aa 


EL) 


CLS 
PRINT 





O POETA 


MAR 19553 


"QUANDO AQ POESIA TIVE 
4. Ss OT 


ENTRE 





PRINT 
e, 


SOTO ig 
PRINT Rs: 


RETURN 


RETURN 
PRINT Og: 


CL. 
PRINT &T 


VE IR POETICA. 


URRS 


QUE 


- E ss 


(21 £RND) 
THEN GósUE 
GOSUB 1B+Jz18 


Je=5 


- % a+ 


.. e. 


5 .BD; CUOÇCE, 
IRA CRIAR 
USADAS POR MI 


ar SUR 


SERAO 
M PARA GERAR LINDOSPOEMAS” 
PAUSE 6936 


2018 
2215 
2028 


tma AR 


CLS 

PRINT 
UMA 

NT 


y 
E 
H 
4 


pol 
Z 
v 
3 
pá 


TT 
papa 
pd pl 
34 
0 


DUM 
DIZ 
HT 
445 

das 


T 
pa 
Ã 
O) 

de A IA TA qa 


Ú 
x 
If 
4 


La 
Z 
Tv 
3 
mr 


“ENTRE COM AS PALAURAR 


PROGRAMA DO LEITOR 
"O POETA” 


Continuação... 





2987 "PRINT Dg$ 

2090 PRINT “E. ne 
2293 INPUT Egg 

22097 PRINT Egg 

21280 PRINT “6. as 
2123 INPUT Fã 

2107 PRINT F& 

Sli? PRINT 7. a 
2113 INPUT 6$ 

2117 PRINT GS 

2120 PRINT “VS. E 
2123 INPUT Hg 

2127 PRINT H& 

21320 PRINT “9. a: 
2133 INPUT Tg 

213" PRINT T$g 

eilso PRINT “Id. aid 
2143 INPUT Jg 

2147 PRINT dg 

2150 PRINT “aa. Eu 
21353 INPUT K& 

ciS? PRINT Kã 

216% PRINT “I2. a 
2163 INPUT Lã 

2167 PRINT Lg 

2178 PRINT “13. as 
2173 INPUT Mã& 

Sl??? PRINT Mã 

2130 PRINT “id. a 
21853 INPUT Nã 

2187 PRINT N& 

21980 PRINT “IS. a 
2193 INPUT Og 

2197 PRINT ES 

2200 PRINT “ie. “à 
2203 INPUT Pã 

222? PRINT Pg 

210 PRINT “I7. no 
eis INPUT 95 

ei? PRINT qQg 

22220 PAUSE 2760 
2238 CLS 

242 coro 3218 
30208 CLS 


3205 PRINT “PALAURAS GUE ESTRO N 


à MEMORIA: 
3a 184 PE LNT O EITA AUD O TT TESE ERC CITE = ee voy 
MEL TE FEST” E 


S220 PRINT “SE APARECER AR MENSAS 
EM DE ERRO 2/3038, ENTRE GOTO 3 


39030 PRINT “à. “1 R$ 
SSL PRINT “2. “418% 
S2052 PRINT “3. “4 Cs 
32693 PRINT “4. “:1D& 
320780 PRINT "5. “e 
32080 PRINT “A. “SE 
30980 PRINT “7. “368% 
3108 PRINT “5. “sHS 
3118 PRINT “9. “1 Lg 
31220 PRINT “18. ra 
3130 PRINT “ias. “Rg 
3140 PRINT “IB. FA 
3158 PRINT “15. “iM& 
3160 PRINT “ils. “ING 
3170 PRINT “iS5S. “108 
3180 PRINT “16. "“,52$ 
31980 PRINT “17. “;0s 





3193 GOTO S219 

3194 CLS 
3196 PRINT AT 7,2; “COLOQUE O GRA 
VADOR EM “VREC"” ENTRE “ 
“NEW NE *º* .. 
3197 INPUT Z& 
3198 CLS 
3208 SBVE “O ParETR 

3218 PRINT AT 53,11:"0 POETA" 
S4LS PRINT HT 4,21; "mas 
svez8 PRINT AT 7,3; “UOCÊ QUER...“ 
veso PRINT AT 9,A;"“L. CRIAR UM 
A NOUA POESIA" 

3240 PRINT AT 11,1;"2. REVER AQ 
S PALAVRAS QUE ESTAO 
NR MEMORIR' 

sesd0 PRINT Ai I24,1;"7GS. GERAR U 
MR POESIA COM RS 
PALAVRAS QUE EST 
RO NA MEMORIA” 

268 PRINT AT 18,1;'4. GRAVAR 
ARS PALAVRAS DA mM 
EMORIAS 

270 IF INKEYg="1" THEN RUN 29909 
= IF INKEYr$='2" THEN GOTO 399 
3290 IF INKEvY$="53" THEN GOTO 1 
ii IF INKEYg='4" THEN GOTO 5313 
3310 GOTO 5278 
fe 
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PASSAGEM PARA O INFINITO 


Sensacional jogo onde você tentará encontrar e sair com um fabuloso tesouro em um 
complexo labirinto. guardado por terríveis polvos monstros, e com mais de 400 pas: 
sos Para ajudá-lo. você contará com algumas espadas, que garantirão sua sobrev!- 
vência na luta com Os monstros, e com os prisioneiros encarcerados nas várias pas 
sagens que lhe indicarão o caminho a seguir Totalmente em linguagem de máquina 
com gráficos fantasticamente animados e trés niveis de dificuldade para desafiá-lo 


Preço Cr$ 7 000.00 
MIDWAY 


Uma grande guerra mundial está sendo travada nas águas do Atlântico Você agora é 
o comandante do submarino atómico MIDWAY, sua missão destruir todas as bases 
inimigas em águas brasileiras Cuidado com os navios, aviões e minas espalhados pe- 
los invasores Para auxiliá-lo poderá contar com uma frota de navios de reabastec!- 
mento, várias bases aliadas e um computador de bordo Um grande desafio com grá- 
ficos e várias rotinas em linguagem de máquina Preço Cr$ 5 000,00 


JORNADA NAS ESTRELAS —— 


A sua nave interplanetária ENTREPRISE necessita livrar a galáxia dos invasores 
Klingon, e vocé, como comandante da nave, terá a árdua missão de destruílos Um 
jogo famoso no mundo todo em uma de suas melhores versões pela Softkristian, com 
efeitos gráficos sensacionais Preço Cr$ 5 000. 














8: DIMENSÃO 
Agora você já pode ter um fliperama em seu microcomputador em2* DIMENSÃO dois 
jogos agitadíssimos para testar sua coordenação motora Em SPACE INVADER você 
tem os origina!s invasores atacando sua naveeem ASTEROID você deve pousarem um 
planeta e, para tanto deverá ultrapassar os obstáculos que vêem à sua frente tentando 
destruí-lo Grandes jogos em linguagem de máquina Preço: Cr$ 5.000.00 


VISITA AO CASSINO 


Quatro grandes jogos em um só. caça-níqueis, roleta, 21, e perseguição fata! fazem 
parte deste sensacional conjunto. Todos os jogos com gráficos e rotinas em linguagem 
de máquina, pars você que gosta de apostar e torcer Preço Cr$ 5 000,00 


10 JOGOS EXCITANTES PARA 1 K 


Dez pequenos jogos para você incrementar e aprender bastante os efeitos de progra- 
mação de jogos e trabalhos com vídeo Se você não dispõe da expansão de 18K já pode- 
rá ter entretenimento com esta sensaciona] fita Se você já dispõe de 18 K compre para 
incrementá-los e terá excelentes jogos, Preço Cr$ 4.000,00 


e . 
Kristisn 
TRONICA | 
Rua da Lapa, 120 grupo 505 
Teis.: 252-9057 - 232-5048 


CEP 20021 - Rio de Janeiro Rd 


Todas as fitas vão em embalagem lacrada, com gravação profissional, para sua garan- 
tia. A Kristian trocará qualquer fita que seja enviada, com defeitos de fabricação 























Compre conosco de cualquer parte do Brasil sem 
despesas adicionais enviando um chegue cruza 
do e nominal à KRISTIAN ELETRÔNICA Lica indo 
precisa visar). € garanta O recenimento de nosso 
informativo NOVIDADES KRISTIAN totalmente 
gratuito 
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DICAS 


USANDO AS 
LINHAS 22 E 23 


Flavio Rossini 





Quantas vezes você já não deve ter se perguntado se 
seria possível utilizar as últimas duas linhas da tela 
(reservadas para a edição), especialmente para a realiza- 
ção de jogos... 


De fato, isto pode ser feito de um modo bastante sim- 
ples: na memória de endereço 16418, está uma variável 
chamada DF-SZ usada pelo TK para indicar o número 
de linhas reservadas para a região de edição; assim sendo, 
seu valor normalmente é dois. Basta então modificá-lo 
para Q: 


1 POKE 16418, 0 


Pronto! Experimente fazer agora 


2 PRINT AT 22,0; BEATLES” 
3 PRINT AT 23, O; "FOREVER" 


e RUN 


No entanto, este truque só pode ser utilizado para 
efeitos de tela! Se você for fazer algum INPUT após fa- 
zer este POKE, “coisas estranhas”' poderão ocorrer. As- 
sim, você poderá corrigir DF-SZ antes de fazer um 
INPUT: 


POKE 16418, 2 


Para exemplificar o efeito, vamos apresentar um pro- 
grama que ilustra, além disso, alguns truques de progra- 
mação. Tente explicar como funcionam as linhas 25, 30 
e 60... 
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1 RAND 
o SLOW 
18 POKE 16418,6 
15 LET X=8 
28 LET Y=e8 
SS LET X=X+24+ (INKEY5="8") -D+(I 
NKEY 6="5"") 
A a Y=Y+(INKEyY$=]"6")- (INKEY 
SS IF X<B THEN LET X=30 
40 IF X>31 THEN LET x=Q 
45 IF Y<Q THEN LET vy=23 
vB IF w>523 THEN LET Y=0 
55 LET W5&=5STRã4 Y 
62 LET B=INT (t2+xRND) +128B 
6S IF LEN Y5%=2 THEN PRINT AT wY 


sX:; CHRã (CODE Y&+A) 
20 IF LEN Y5=2 THEN PRINT AT Y 
+ X; CHR$ (CODE VYVE+A) ; CHRS (CODE Y 


G (2) +82 
“5 GOTO 2s 


Digite RUN... aparece o número Q no canto superior 
esquerdo: tente movimentá-lo usando as teclas 5, 6,7 e 
8. O que acontece ao chegar ao fim da tela? 

Tente agora este programa: 


SLONW 

POKE 156418,0 
IF INKEv$="" 
PRINT INKEVS; 
GOTO 5 


THEN COTO Ss 


papa 
MES ANO pa 





Digite RUN e a seguir qualquer tecla. . . o que acon- 
tece ao digitar NEW LINE? € 


PROGRAMA 


DO LEITOR 
CALENDÁRIO 


1a 


No número O da MICROHOBBY, publicamos um pe- 
queno artigo a respeito de calendário, no qual era forne- 
cido um programa. 


Este programa permite calcular o dia e o mês no qual 
cai a PÁSCOA desde que seja conhecido o ano (REVIS- 
TA DOS USUÁRIOS DO TK — pág. 6). Pedimos tam- 
bém que os leitores nos enviassem um aperfeiçoamento: 
“dado o ano, em que dia caio CARNAVAL?" 

Recebemos muitas respostas interessantes para cujos 
autores enviamos os brindes prometidos. Uma delas foi 
selecionada para publicação: a de autoria de EDSON 
SAUER GUIMARÃES. 


Com relação à pergunta: “O que aconteceu em Roma 
no dia 10 de outubro de 1582?” A resposta é "Nada, 
absolutamente nada!”. De fato para ajustar o calendário 
de Juliano para Gregoriano, no dia 5 de outubro de 
1582 sucedeu o dia 15 de outubro de 1582. O dia 10, 
então, não existiu! 








Para os leitores que queiram se aprofundar no tema, 
aconselhamos a leitura do BOLETIM DA SOCIEDADE 
ASTRONÔMICA BRASILEIRA — ANO 5, Nº 3 — 
OUT/DEZ 1982, página 5, onde começa um excelente 
artigo de autoria de ROBERTO BOCZKO. 

E) 


A o O es 


1 
1a 
2e 


REM EDISON SAQUER GUIMARRDES 
PRINT “DIGITE OS QUATRO ABLE 


ARISMOS DO ANO Cuda Posçcoa E ca 
RNRUAL poa QUER “ 


Sa PRI 

à? PRINT “AR SEGUIR DICITE NEU 
LINES 

o0 INPLIT AR 

Sa IF A:=1582 THEN Goro sa 

Se coOTO 968 

So PRINT 

81 PRINT “SINTO MUuITO Mas SO 4 
ALE O CALENDARIO GREGORIAN 

S5 GOTO sa 

98 LET QG=R- INT (4/19) 4+19+41 
181 CLS 

1062 PRINT “EM “;A;º à PANaCORD CE 
a” 

1203 PRINT “NO DOMINGO “; 

103 LET C=INT IR-100341 

1128 LET X=INT (340/74) -13 

110 LET Z=INT (48x0+51 7/2513 -5 
126 LET D=iNT (5:A-d;-xX-18 

125 LET E=iiril+20+7Z-X 

190 IF E<O TREN LET E=E+50 

Se LET E=E-INT (E-380) +38 

3080 IF E-24 THEN GOTO 498 

S18 IF (tE=25) AND (ly>1i) THEN G 
ÚTO des 

seo GOTO dia 

4020 LET E-E+1 

JO LET N-â4- 

420 IF N:<21 THEN LET N=N+50 
leo LET B=D+M 

250 LET B=E-INT 1B/7) *7 

00 LET N=N+7-B 

2205 PRINT 

2120 IF N>31 THEN coTo ecoa 

220 PRINT N;" DE MARCOS 

930 GOTO 618 

SOS PRINT N-51i; DE RERILS 

GIO LET M=N+S 

Goo LET 5B=8 

030 IF (R-INT tR/4) %43 <>80 THEN 
GOTO 656 

S40 IF £A-INT (R/100) *+109) =0 Tn 
EN COTO Gs 

SeB LET E=1 

67ê LET M=M+12 

6300 PRINT 

690 PRINT “OS DIAS DE CARNAVAL 
CREM E 

“DO GOSUB 520 

7180 PRINT º“ DOMINGO“ 

t2e GOSUE SEG 

“380 PRINT ' SEGUNDA-FEIRA" 

+40 GOSUB EDO 

+50 PRINT “* TERCAR-FEIRA" 

<O2 PRINT 

“0 PRINT CDIGITE EU PRRR CONTIR 
LUAR 

£?5 INPUT S& 

80 IF 56="C“ THEN GOTO 18 

“98 GOTO 778 

20 LET M=M+1 

B18 LET 53-59 

820 IF 5B=i THEN LET 55-66 

8580 IF M«<=S THEN GOTO 5658 

840 PRINT M-5S:“ DE MARCO"; 

550 RETURN 

860 PRINT M-51;' DE FEVEREIRO: 
5/80 RETURN 
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me 


NOVIDADES 


O HIGH-SPEED 
DO TK85 





O lançamento do TK85 

despertou Um grande entu- 

siasmo por uma característica que, irônicamente, não é 
a mais importante: O teclado. 

O primeiro computador a usar teclado de membrana 
foi o ZX80 (e posteriormente ZX81) da SINCLAIR que 
encontrou este caminho para baratear mais ainda seu 
custo de produção e tornar o equipamento acessível a 
uma faixa de mercado que antes estava excluída do ma- 
ravilhoso mundo da computação. 

No Brasil tivemos o NEZ8000 com teclado de mem- 
brana exigindo um bocado de pressão e o TK82 com te- 
clado tipo “toque”, consideravelmente mais comodo. 

Apesar disto, muitos usuários se queixavam do tecla- 
do, pois ao “apertar” a tecla queriam sentir um movi- 
mento, para ter um retorno. Para atender a este tipo de 
solicitação a PROLÓGICA lançou o CP200, versão com 
SLOW do NEZ8000 expandido, com a diferença de ter 
um teclado de teclas móveis e um “bip” que indica se 
elas foram realmente acionadas. 

A MICRODIGITAL também atendeu a este tipo de 
solicitação lançando o TK85, com teclas móveis e um 
“design” muito atraente. 

O preço do TK85, porém, em sua versão mais barata 
(16K), é quase o dobro do TK82 sem expansão. Será 
que 14K a mais, um teclado mais cômodo e um aspecto 
mais bonito justificam este acréscimo? A resposta seria 
obviamente “não” se o TK85 não tivesse um acréscimo 
maravilhoso: as funções especiais de armazenamento, 

Futuramente pretendemos discutir todas, mas neste 
número queremos destacar o HIGH-SPEED, 

O TK82 e o CP200 enviam e recebem dados da fita 
cassete com uma velocidade inferior a 600 bits por se- 
gundo. O TK85 também opera nesta velocidade, poden- 
do receber programas originalmente concebidos para o 
TK82, utilizando fitas e gravadores de qualidade média: 

Acoplado a um gravador de melhor qualidade, porém, 
ele pode operar com uma velocidade de transferência de 
4200 bits por segundo! 

Não existe, no mundo, um microcomputador deste 
porte que transfira dados nesta velocidade. Esta afirma- 
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ção pode parecer ufanismo, mas no fundo reflete um 
pouco o orgulho que os brasileiros devem sentir numa 
ocasião destas: produzimos um computador com uma 
característica que não tem similar estrangeiro. 

O número 4200 bits por segundo não consegue trans- 
mitir o susto do usuário na hora que ele vê, por exem- 
plo, um SICOM ser transferido para a RAM do TkK8B5 
em alguns segundos. 

A maneira de se conseguir uma fita gravada de manei- 
ra especial para o TK85 é muito simples: usando um gra- 
vador de boa qualidade e uma fita “low noise”, deve-se 
proceder como segue: 

Inicialmente transferir o programa de uma fita normal 
(300 bits por segundo) para a RAM do TK85 usando o 
comando LOAD “” ” 

Com o cursor em (se necessário deve-se dar um 
BREAK ou um STOP no programa) digitar 


RAND USR 8405 


sem ainda apertar NEW LINE. 

Colocar a fita virgem no gravador, acioná-lo no modo 
“REC” (gravar) e deixar a fita correr um pouco. 

E conveniente, inclusive, se gravar alguma mensagem 
de referência a viva voz, tipo “programa SICOM gravado 
em HIGH-SPEED no dia 20 de junho de 83, três, dois, 
um, já” colocar o plug no MIC e apertar NEW LINE. 

O comando digitado chama uma subrotina (batizada 
HISAVE) em linguagem de máquina que faz o TK85 
enviar O programa para a fita na velocidade espantosa de 
que já falamos. 

O padrão das faixas que aparece na tela da TV é com- 
pletamente diferente do SAVE “normal” e não existe o 
hiato usual de 5 segundos. 

Ao terminar a gravação, num tempo surpreendente- 
mente curto, aparece o código de reportagem: 


0/0 


no canto inferior da tela. 

A fita está corretamente gravada? Verificar isto com 
um “LOAD é muitas vezes frustrante: a gravação não 
estava correta e o resultado é um computador com a 
RAM vazia. Neste momento o TK85 começa a mostrar 
outra maravilha: a sub-rotina HIVERIFY. Você volta a 
fita até O início da gravação, digita 


RAND USR 8539 


e aperta o NEW LINE. 

Ao apertar a tecla PLAY do gravador a tela mostrará 
um fundo escuro com alguns riscos brancos horizontais. 
Ao entrar o programa o padrão de riscos se torna pareci- 
do com o HISAVE. assa 


O E 


NOVIDADES 
O HIGH-SPEED DO TK 85 


Continuação... 


Assim que o programa “passa” pelo computador, sem 
ser carregado e sem afetar o que ainda está na RAM, a 
tela pode mostrar três coisas: ou um OK tranquilizador 
na primeira linha, ou uma mensagem indicando 


ERRO 


ou continua escura. Neste último caso convém repetir O 
processo aumentando o volume de reprodução. Se a 
mensagem indica ERRO é conveniente repetir o proces- 
so de HISAVE. 

Se a mensagem diz “OK”, então você pode desligar 
seu TK tranquilo pois o programa está bem gravado. 

Quando quiser recolocar o programa assim gravado na 
RAM, você deve usar a sub-rotina HILOAD. 

Para tanto coloca-se a fita no início da gravação, 
digita-se 


RAND USR 8630 


e NEW LINE. Põe-se a fita para tocar no PLAY e espera- 
se o código 0/0 no canto inferior da tela, indicando que 
o programa já passou da fita para a RAM do TK8B5. 


CURSO DE 
BASIC AULA 2 


Flavio Rossini e Pierluigi Piazzi 


Até agora, só mandamos o computador executar uma 
ordem por vez; como fazer para que ele execute várias 
ordens em sequência? Para isto, é necessário NUMERAR 
as ordens (também chamadas instruções). Por exemplo, 
digite: 


18 LET A=9H 


e, a seguir, NEW LINE. Pelo fato de ter um número na 





Resumindo: 

HISAVE -—RAND USR 8405: Usar bom gravador e 
fita de qualidade. 
Uma mensagem a vi- 
va voz ajuda locali- 
zações posteriores. 
Compara o progra- 
ma da fita com o 
que ainda está na 
RAM indicando se 
a gravação foi cor- 
reta. 

Passa O programa da 
fita para a RAM, 
apagando eventuais 
programas pré-exis- 
tentes. 

Quem já tem uma coleção de fitas gravadas para o 
TK82, CP200, ZX81, pode agora, com estas três sub- 
rotinas, preparar outra coleção para o TK85. 

Realmente, quem comprou o TK85 para ter um te- 
clado “mais cômodo” vai ter muitas agradáveis surpre- 
sas: nem sempre se compra gato por lebre. Este é um tí- 
pico caso em que muita gente acabou comprando lebre 
por gato. 

E isso porque ainda não falamos de outras maravilhas 
do TK85 pois queremos deixar alguma coisa para um 
próximo número de MICROHOBBY. 

Por isso não estranhe, se souber de algum turista ame- 
ricano que acabou contrabandeando um microcompu- 
tador brasileiro para os Estados Unidos. e 


HIVERIFY-— RAND USR 8539: 


HILOAD -—-—RAND USR 8630: 


sua frente, a ordem não é executada; apenas copiada na 
parte de cima da tela da seguinte maneira: 


105 ET A=O 
a seguir, digite: 
20 PRINT Als 
e NEW LINE, na tela você irá obter 


18 LET A=8 
20BPRINT A 


Notamos que apareceu um novo cursor, o cursor E 


aos 
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que indica para qual das linhas o computador está 
“olhando”. Para deslocá-lo, utilize SHIFT juntamente 
com as teclas 6 (4) e 7 (4). Suponha que você tenha 
“errado” a instrução (ou linha) 10 e quisesse fazer com 
que a variável A fosse igual a 15 e não QD. Desloque, en- 
tão, o cursor EB para a linha 14 (usando SHIFT e a te- 
cla 7); para poder corrigíi-la, devemos deslocar o cursor 
usando -— (ou «= ), mas isto só é possível, se a linha es- 
tiver na parte debaixo da tela. Para trazê-la a esta posi- 
ção, basta apertar SHIFT e a tecla | (EDIT) e você obte- 
rá a linha copiada na parte inferior da tela: 


105 LET AR=6 


Desloque o cursor até depois do dígito À, apague-o 
(usando RUBOUT), e substitua-o por 15, você obterá: 


18 LET A=15B 


e, a seguir, NEW LINE; a linha 10 no topo da tela será 
substituída por esta NOVA linha 16. Vamos fazer voltá- 
la à original, usando agora outro método; sem trazer a 
linha para baixo, escreva uma nova linha 10 na parte 
inferior da tela: 


180 LET A-a8 
e aperte NEW LINE. 
* 


Novamente, a linha 10) superior será alterada. 
Para exercitar, tente agora substituir a linha 10 por: 


18 LET A=S5 


utilizando qualquer um dos dois métodos. 
Feito isto, vamos acrescentar outra instrução: 


30 PRINT 3+Al&8 
Após apertar NEW LINE, teremos então o seguinte: 


10 LET A=5 
28 PRINT A 
SOSBNPRINT 3+a 


Observe que, intencionalmente, não estamos utilizan- 
do números consecutivos para numerar as instruções. 
Isto é útil, para podermos colocar novas instruções entre 
duas já existentes, o que, não seria possível se as duas ti- 
vessem números consecutivos. Por exemplo, digite o se- 
guinte: 


28 MICROHOBBY 


=". 


es PRINT “Aa="";all 


e a seguir NEW LINE. Você observará que esta instrução 
“toma” seu devido lugar entre as linhas 20 e 30. O que 
temos agora? Vejamos, 4 instruções numeradas"; se 
executássemos uma de cada vez, iríamos obter respecti- 
vamente na tela nada na primeira, pois ela apenas atribui 
o valor 5 na memória à variável A, na segunda, aparece- 
ria O número 5 na tela, na terceira, a letra A seguida do 
caractere = e do valor da variável A (ou seja 5) e na 
quarta, o número 15 (3*5); mas, agora, poderemos 
executá-las TODAS sequencialmente. Para isto basta 
pressionar a tecla R; como o cursor está em , apare- 
cerá a “key-word”: 


RUN 


e a seguir NEW LINE. Esta instrução tem o seguinte 
efeito: faz inicialmente um CLEAR (para limpar todas 
as variáveis que eventualmente tinham sido definidas) e, 
a seguir, ordena ao computador que ele execute sequen- 
cialmente as ordens numeradas. Portanto na tela você irá 
obter: 


e na memória teremos o número 5 associado à variável 
A. Note o efeito do ponto e vírgula (;) na instrução 25. 
Ele indica que duas coisas serão escritas “lado a lado” 
com um só PRINT. 

Preste atenção: quando você numera as ordens, O 
computador NÃO as esquece. Em outras palavras, as or- 
dens numeradas são armazenadas em sua memória. Nes- 
te instante, você não as vê na tela pois ele está apenas 
mostrando os RESULTADOS das ordens. Para fazer 
com que ele mostre as ordens na tela, utilize a seguinte 
instrução: 


LIST (letra K) 


e NEW LINE. O que acabamos de fazer é muito impor- 
tante e precisa estar bem claro em sua cabeça: ao orde- 
nar ao computador que faça uma determinada tarefa, 
sem colocar um número na frente da ordem, o compu- 
tador a executa IMEDIATAMENTE esquecendo a or- 
dem em seguida; se você numerar as ordens, elas são exe- 
cutadas ao receber o comando RUN e o computador 
NÃO as esquece. Elas estão em sua memória e podem 
ser vistas na tela fazendo um LIST. A fase em que você 
escreve as ordens no computador é chamada de 
PROGRAMAÇÃO; ao apertar a tecla RUN, ele executa- 
rá as ordens do seu PROGRAMA, fase essa, que chama- 
mos de EXECUÇÃO. É importante não confundir as 
duas coisas. 

Vamos agora “brincar” um pouco com o nosso pro- 
grama; acrescente ao mesmo a instrução: 
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420 LIST 


e execute este “novo programa”, apertando RUN e 
NEW LINE. Veja, o computador irá executar as suas 
ordens, sendo que a última, diz para que ele MOSTRE 
o programa na tela, assim você irá obter: 


te LIST 


Ou seja, no programa você ordenou que ele se mos- 
trasse no final. Substitua agora a linha 40 por: 


40 RUN 


E execute o programa fazendo RUN e NEW LINE. 


O que você obtém? Várias vezes a mesma saída 5, A e 
15. Você saberia explicar por que? Observe a sua última 
instrução: você, ao terminar o programa, ordena que ele 
comece de novo. Dessa forma, ele irá se repetir até não 
haver mais espaço na tela. Note que a ordem de RUN 
indica ao computador que ele comece a executar o pro- 
grama, a partir da primeira linha. Você pode fazer com 
que ele execute, a partir de qualquer outra linha. Faça 
LIST e NEW LINE e, a seguir, substitua a linha 40 por: 


480 RUN am 


a seguir, digite RUN e NEW LINE, 

Veja O que acontece: o computador “escreve” na tela 
5, A e 15 apenas uma vez, pois RUN 30 significa “dê 
um CLEAR”, e execute o programa a partir da linha 
30. Ora, ao tentar executar a instrução 30 ele irá pro- 
curar a variável A na memória, mas não irá encontrá-la, 
pois ela foi apagada pelo CLEAR; assim, ele pára a exe- 
cução do programa. Experimente então, substituir a 
linha 30 por: 


30 LET A=8 
e acrescente a linha 35 da seguinte maneira: 


35 PRINT 3+A 


Execute então o programa assim modificado. Tente 
explicar o que ocorre. 








42 Ruth 308 


Da mesma forma, a instrução LIST, mostra o progra- 
ma na tela a partir da primeira linha; experimente or- 
denar: 


LIST 2s 


e NEW LINE. Observe que o computador mostra o seu 
programa na tela a partir da linha 25. 


2SBPRINT “Aa=";a 
Je LET A=8 

35 PRINT 3+A 

sé RUN IB 


Acrescente ao seu programa agora, 2 linhas: 


e2 PRINT 
2? PRINT 


de tal maneira que ele fique: 


18 LET A=5 
2a pap R 


22 RINT 

es PRINT “Aa=";Aa 
27 PRINT 

3a B= 

35 PRINT 348 
4.2 Ru 3 


ei 
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e mande agora executar o seu programa (RUN e NEW 
LINE). Você irá obter uma linha em branco, entre o nú- 
mero 5 e a letra A, e, entre a letra A e o primeiro núme- 
ro 24, pois, de fato, você ordenou que ele NÃO escreves- 
se nada, 


Dessa forma, você conseguiu fazer com que ele 
“pulasse”” linhas. 


Cabe aqui um comentário com relação à instrução 
CLEAR: ela apenas limpa as VARIÁVEIS do compu- 
tador. De fato, experimente ordenar CLEAR (e NEW 
LINE) e, a seguir faça LIST. Você pode observar que seu 
programa ainda está lá. Se você desejar , "limpar" (apa- 
gar) uma linha de programa, basta colocar o número da 
linha, seguido de NEW LINE; experimente escrever 46 e 
NEW LINE. A linha 40 irá desaparecer. Se você quiser 
apagar TODO O PROGRAMA e TODAS AS VARIÁ- 
VEIS, basta executar o seguinte comando: 


NEW (tecla A) 


e NEW LINE. Experimente “listar” o seu programa; na- 
da aparecerá na tela, ele “esqueceu” tudo. .. Portanto, 
cuidado com esta instrução: ela é EXTREMAMENTE 
PERIGOSA. 


Para finalizar, vamos aprender mais um cursor: trata- 
se do cursor (GRAPHICS) cujo acesso é feito pres- 


sionando SHIFT e a tecla 9. Observe, por exemplo, a te- 


cla T: 


E, 


= 


Se o cursor estiver em , do pressioná-la, você 
obtém RAND na tela; com o cursor , você terá T, ou 
<> se pressionar simultaneamente o SHIFT: com o 
cursor em , você obtém RND; agora, com o cursor 
em ao pressioná-la, você terá a letra T em vídeo re- 
verso, ou, O desenho 8 , se pressionar simultanea- 
mente o SHIFT. Façamos então o seguinte programa: 


RND 
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1º PRINT “cs 
22 RUN 


Note que, após abrir as aspas, devemos colocar o cur- 
sor em e, simultaneamente com SHIFT, apertar as 
teclas T, H, 7, Fe 8. Para fechar as aspas, devemos pas- 
sar novamente Oo cursor para : para isto, basta fazer 
SHIFT e a tecla 9 (GRAPHICS). Execute então o pro- 
grama. A seguir, modifique a linha 1 acrescentando um 
(:) no final: 


18 PRINT “EI; 
28 RUN 


Execute O programa e perceba o efeito “ESTRA- 
NHO” do (;) ou seja: faça com que o próximo PRINT 


escreva “ao lado” e não na linha de baixo. Mais adiante 
veremos alguns detalhes a respeito do (;). 





Exercício: 


1) Faça um programa que associe à variável HOPE o nú- 
mero 6 (na memória) usando a instrução LET e, a se- 
guir, escreva na tela o seguinte: 


HOPE = 6 
HOPE + 2 = 8 
3*HOPE 15 





| 
| 
| 
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Ste = 18 
s+? = 138 
sS+7 = IS 
+? = 18 
S+7 = 1238 
+? = ais 
s+ = 13 
S+7 = 12 
s+7 = 18 
s+7 = 12 
Se? = 18 
s+7 = 12 
S+4+7 = IE 
sS+4.7 = 182 
S+7 = 182 
Ss+7? = I2 


TE STE SS ST ES Ty 


até O fim da tela. 


2) “Apague” o programa anterior (NEW) e, a seguir, faça 
a seguinte instrução (não numerada): LET B = 10 
(NEW LINE). Escreva então este programa: 


100Bh ET A=5 
2820 PRINT A 
3080 PRINT B 


Note o que aparece na tela ao tentar executá-lo. Ex- 
plique o que ocorre e a seguir acrescente a linha 156: 
150 CLEAR; tente então, executar o programa e expli- 
car o que acontece. Substitua então a linha 150 por: 
I50 LET B = 7 e execute o programa. Finalmente, 
acrescente a linha 400: 400 NEW, 


Execute o programa e tente listá-lo em seguida. Expli- 
que o que ocorre, ae 
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Para que possamos entender o que é a linguagem de 
máquina, são necessários alguns conceitos básicos funda- 
mentais: 


a) números binários e hexadecimais 
b) bite byte 


Além deles, para utilizar o ASSEMBLY com o TK, é 


preciso um bom conhecimento do “funcionamento” da 
key-word POKE e da função PEEK. 


O objetivo desta primeira aula é “portanto” abordar es- 


tes tópicos e apresentar alguns exercícios cuja resposta 
será publicada no próximo número. 


“Números binários e hexadecimais” 


A maneira pela qual nós estamos acostumados a re- 
presentar os números, usa dez símbolos diferentes (a sa- 
ber: 0, 1,2,3,4,5,6,7,8e 9) chamados algarismos, 
sendo que cada algarismo tem "peso" tanto maior quan- 
to mais a esquerda ele estiver na representação do nú- 
mero. A relação entre o “peso” de algarismos adjacentes 
é sempre 10; assim, por exemplo: 


posição 
1983 =1X10º+9xXx10 =8x 10! +3Xx IP 

algarismos 
posição: 312 |I1 Ig 


peso: 10º | 10º | 19! | 19º 


comendo 
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Por estas razões, dizemos que os números estão repre- 
sentados na base 10. Diz a história que isso se deve ao 
fato do ser humano ter 1) dedos nas mãos... 

Obviamente, qualquer base poderia ter sido escolhida 
e quaisquer símbolos poderiam ter sido adotados; imagi- 
ne, por exemplo, um marciano com 8 dedos em cada 
mão .. . ou um venusiano com um dedo apenas em cada 
mão ... Apesar dos computadores não serem feitos em 
Marte ou Vênus, é conveniente representar os números 
na base 2 (números binários) e na base 16 (números he- 
xadecimais) quando pensamos em trabalhar em lingua- 
gem de máquina, por razões que veremos mais adiante; 
assim, na base 2 necessitamos 2 símbolos para represen- 
tar os números e na base 16 são necessários 16 (vide ta- 
bela 1.1); a relação entre o peso de 2 algarismos adjacen- 
tes será respectivamente 2 e 16. 


Tabela 1.1 — Símbolos usados para representar números 
binários (base 2), decimais (base 1) e hexadecimais (ba- 
se 16), e utilização dos símbolos da base 2 e base 1) pa- 
ra representar os símbolos da base 16. 


BASE 
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Note que na base 16 somos obrigados a utilizar letras 
para os ultimos 6 símbolos, pois nós seres humanos 
temos apenas 1) símbolos numéricos (DB, 1,..., 9). As- 
sim, nos números hexadecimais, as letras A, B,C, D, E e 
F representam com um único símbolo os números 16, 
11,12,13,14e 15 da base 10. 

Obs.: para evitar confusão, colocaremos os números en- 
tre parênteses com a base utilizada em baixo à direita: 


(número) base 


Por exemplo, vamos escrever 2 números na base 2 (ou 
B) e 2 números na base 16 (ou H) e sua respectiva repre- 
sentação na base 10 (ou D): 


MQa=1247+1x2+4+0x%x2 +ix= (Ia 
posição: 3/2/1/0 


peso: 2º/22/21/2º 

(1000 1010)p=1x27 +0x28+0x2 
+0Ox 22º+1x2º+0 x2º 
+1x2 +0x2 = (138) 


posição: 7/6/5/4/3/2/1/0 


peso: 212º 2512/28 [2 


(132)6 = 1x16º+3x 16! +2x 16º = (306), 
posição: 2/1/0 


peso: 167/16!/16º 
(AZ)jy = 10 x16! +7x 16º = (167)5 
(A) 


posição: 1/0 


peso: 16!/16º 

Note que no último exemplo o símbolo A foi substi- 
tuído pelo número 16 para que pudéssemos fazer a con- 
ta de modo “convencional” e obter o número (A7)y na 
base 1). O mesmo ocorre para B, C, D, E e F que foram 
usados na base 16 para poder representar com um único 
símbolo os números de 1) a 15 que são representados 
com dois símbolos na base 10. 

Assim, vimos como “passar” números representados 
na base 2 e na base 16 para a base 10). Para passar da ba- 
se 2 para a 16 ou vice-versa o procedimento é bem sim- 
ples pois 16 = 2º. 

Desse modo, dado um número na base 2, para obter 
sua representação em hexadecimal, basta agrupar os al- 
garismos em grupos de 4 a partir da direita e substitu - 
los pelo correspondente algarismo na base 16. Você sa- 
beria explicar por que? made 
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(101001001101100)p = (5 2 6 Ch, 
nad Vad Va Vad 
» 26 6 


(11110101111111), = (3D7F),e 
e RR é 7 F 
Obs.: veja a tabela 1.1. 

Vice-versa, dado um número na base 16, para obter 
sua representação em binário, basta substituir cada alga- 
rismo pela sua correspondente representação em base 2, 
Note que são sempre necessários 4 algarismos da base 2 


para cada simbolo da base 16 sendo que os “espaços"'de- 
vem ser preenchidos com zeros à esquerda: 


(3BF),e = (1110111111) 
Ny tem 1 


Ss EB F 
(A482)n = (1010 DIDO 1000 0O1D)p 
Va Ne, No gu? 


Ne al! 
A 4 o) 2 


Para completar o “ciclo” das transformações de bases, 
resta apenas aprender a passar números da base 1) para 
as bases 2 e 16. Via de regra, o seguinte algoritmo pode 
ser utilizado para passar números na base 1) para qual- 
quer base X: (tente explicar por que). 


a) divida o número dado por X, anote o resto e o resul- 
tado 

b) divida o resultado por X e anote o resto e o novo re- 
sultado 

c) repita a operação (b) até o resultado obtido ser zero 
(obviamente se o resultado do passo (a) for zero não são 
necessários os passos (b) e (c) ). 

d) copie os “restos” sequencialmente começando pelo 
último. 


Exemplo: 
Vamos passar alguns números na base 1 para a base 2: 





(35)1g aiii (?)o 
35 2... 
| RT RB 
1 B 
0) 4 2 


é 
] 


f) (35),9 = (100011)2 


ç 


E 


O (92)p = (101 1100)p 


= SÊ 
No 





e da base 1() para a base 16: 





(88), = (?)16 
8 


(0.0) 


, 


8 & n6 
5 1) (88),g = (58)16 
(216)p = (2)k 
216 116 
56 13 [16 
8 13 0 (216)0 = (Dglk 





(Lembre-se que (13)49 = (D),g : veja tabela 1.1) 

Obs.: Note a conveniência de se agrupar os algarismos 
dos números binários de 4 em 4 para facilitar a com- 
preensão, assim como fazemos para os números decimais 
(de 3 em 3). 


Exercícios: 


1) Efetue as seguintes conversões: 
a) (10 1101)g = (2) 
b) (1010)4g = (?)e6 
c) (AZF)y = (2)p 
d) (380)16 = (29 
e) (101 G010 1011), = (2) 
9) (111 0110), = ()g 
h) (10 1110 0110 1100)p = (2)u 


|) (ACF 2)6 = (2) 
) (1270 = (2)2 
k) (999)p = (?)u 
1) (110)p = (2)B 


Sugestão para uma tarde de verão: Algum tempo atrás 
era bastante usada também a base 8 (números octais); 
tente imaginar números representados nesta base e como 
transformá-los para as bases que aprendemos hoje e vice- 
versa (note que 8 = 2º): a seguir faça o mesmo para uma 
base que não seja potência de 2 (ex. 5). 
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Sugestão para 5 tardes de verão: Experimente imaginar 
números na base 12 e fazer contas com eles: soma, sub- 
tração, multiplicação, divisão . . . Verifique que certas 
contas de divisão que dão dízima na base 1) não dão dí- 
zima na base 12; ex.: 4/3 = 1,333... (base 10). 

4/3 = t,A (base 12) 


“Bit/Byte: circuitos eletrônicos de dois estados” 

A evolução da eletrônica tornou possível a elabora- 
ção de circuitos extremamente pequenos capazes de as- 
sumir 2 estados estáveis, sinalizados pela presença ou 
não de tensão elétrica; para efeito de representação, es- 
tes estados são simbolizados respectivamente por 1e O, 
razão pela qual torna-se necessário representar os núme- 
ros na base 2 se quisermos interpretar como números os 
estados dos circuitos. Os computadores são constituídos 
em sua grande parte por “milhares” destes circuitos inte- 
ligentemente ligados. 

Na linguagem “usual”, cada algarismo O ou 1 é cha- 
mado de “bit” e a um conjunto de 8 bits chamamos 
“byte”. Os números hexadecimais foram introduzidos 
para facilitar a escrita e compreensão de números biná- 
rios, substituindo longas cadeias de zeros e uns, pelos 
correspondentes símbolos hexadecimais, reduzindo as- 
sim, 4 vezes seu tamanho e facilitando o entendimento 
do ponto de vista humano. 

Assim, se tivermos 8 circuitos iguais ao mencionado 
anteriormente, poderemos representar 256 números 
(28) correspondendo a todas as combinações possíveis 
de zeros e uns: 


“"DODO DADA f) q 
“MODO PODA" 1 Ed 
“DODA DOID" 2 EA 
“MODO DO11" 3 EA 
“1111 1100" 252 É 
URIA AA 253 ED 
1 TANIA 254 PE 
A MATO 255 'FF' 
(binários) (decimais) (hexadecimais) 


Assim, utilizando 1 byte (8 bits) podemos representar 
os números inteiros positivos de O a 255... 

Se usássemos 16 bits (ou seja 2 bytes), poder íamos re- 
presentar 2!º números a saber de À a 65535. Esta regra 
é análoga à base dez; de fato, com 2 algarismos podere- 
mos representar 10? números (Qd a 99). 
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Note que introduzimos aqui uma nova simbologia pa- 
ra diferenciar as bases nas quais estão representados os 
números: os binários entre aspas ("), os hexadecimais 
entre apóstrofos (') e os decimais sem “nada”; esta sim- 
bologia é a que será adotada para todas as outras aulas. 

Como veremos no decorrer do curso, serão muito in- 
teressantes para nós os números de 1 byte (8 bits) e 2 
bytes (16 bits). Assim como nos números decimais onde 
existe o conceito de “algarismo mais significativo”. 

Por exemplo o número hexadecimal: 


1 byte 1 byte 


"DA O =— Ao 


1AZC' = “OD 1010 DOIO 1100 


] A 2 C 


tem como byte mais significativo 1A' e como byte me- 
nos significativo '2C'. Este número poderia ser assim re- 
presentado em decimal: 


“1A2ZC' = 1x 16º + 10 x 16º +2 x 16! +12 x 16º = 6700 


(A) (C) 


Poderíamos porém, calculá-lo de outra forma: 


byte mais significativo: 1A'= 1x 16! +10 x 16º = 26 
byte menos significativo: 2C'= 2x 16! +12 x 16º = 44 


e calcular: 


(byte mais significativo) x 256! + (byte menos 
significativo) x 256º = 26 x 256! +44 x 256º = 6700 


Como se estivéssemos utilizando uma base “fictícia” 
de 256 (= 162). Para entender melhor, suponha por 
exemplo o número 10024 em decimal, ele equivale a; 


Tx +Dx10 +2x10 +4x 10º 


Se “dividirmos” o número ao meio [10 24] podere- 
mos usar uma base fictícia de 1)? = 100; de fato: 


10 x 100 +24 x 100º = 1024. 


Não se trata de coincidência. E lógica... 

Medite um pouco sobre estes conceitos. Eles serão 
úteis e necessários para entender a linguagem de máqui- 
NA. su 

Para facilitar as coisas, apresentamos aqui uma tabela 
dos primeiros 256 números hexadecimais e decimais pa- 
ra conversão, ou seja, todos os números possíveis de se- 
rem representados com 1 byte e que, portanto, têm dois 
dígitos hexadecimais. 
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PROBLEMAS 


Use Tig Loader Q 


TIG-LOADER possibilita: 
«a localização do ótimo volume do gravador, através de 2 LE Ds indicadores, facilitando a operação LOAD. 
“DUPLICAR qualquer programa, usando outro gravador, conseguindo duplicações perfeitas. | 
ecarregar (LOAD) e DUPLICAR simultaneamente. ] 
egravar (SAVE) em 2 gravadores ao mesmo tempo. 
emonitorar as operações LOAD, SAVE ou DUPLICAÇÃO através de fone, sem manipular fios, plugs ou o controle de volume. 
efiltrar as interferências elétricas de baixa frequência, que são a causa da maioria dos problemas de LOAD/SAVE. 


TIG-LOADER é pequeno (8 x 5 x 2,5cm) e não requer modificações no microcomputador, nem bloqueia a expansão de memória, 
porque é ligado entre as tomadas gravador/microcomputador. 


Para adquirir, envie o cupom abaixo, completamente 
preenchido, mais um cheque nominal, pagável 
em São Paulo, e você receberá o seu TIG- 
LOADER pelo Correio. 


TIGRE COM.DE EQUIP.P/COMPUTADORES LTDA. 
Rua Correia Galvão , 224 
CEP 01547 - São Paulo - SP 


ATENDEMOS SOMENTE POR CARTA 





Seja Cliente Preferencial; envie o cupom preenchido e você receberá desconto em todos os nossos 
produtos (a relação dos futuros lançamentos é enorme ! ). 





"""""s.ÃZêêg=geed:::ÉÀÉÊ€eeeeee+ +. &X%€%ZÉZEXKÚZzZâeess.a...]]=]-1-[----==.e€Wa.=.e=e=.=€=WxWxWxWx=================== =. 





[sim, desejo receber aparelhos TIG-LOADER, para o que estou anexando o cheque nº , no valor de 
CR 
[ ] Quero ser CLIENTE PREFERENCIAL e receber descontos nas minhas futuras compras. 
NOME 
ENDEREÇO 
CEP JSXIDADE.- a ESTADO 





PROFISSÃO... No DATANASE. Am 
MICROCOMPUTADOR 





Prazo de entrega: 15 dias. - DESPESAS POSTAIS POR CONTA DO COMPRADOR 


MICROHOBBY 35 


CURSO DE ASSEMBLY 
LINGUAGEM DE MÁQUINA 


Continuação... 






Tabela 1.2 
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Assim, por exemplo, linha 5, coluna A, teremos: 
BA' = 90 (defatob x 16! + 10x 16º = 90) 


Vice-versa, 247 corresponde a linha F, coluna 7, ou 
seja: 


247 = 'F7' 
“O que é POKE? O que é PEEK?” 


Como veremos, a memória do TK pode, com expan- 
são de 64K, ter 65536 casinhas” (posições) numeradas 
de O a 65535, cada uma capaz de armazenar 1 byte, ou 
seja, um número compreendido entre O e 255 ('00' e 
'FF'); a instrução POKE coloca um número (de O a 
255) na memória desejada; por exemplo: 


POKE 30000, 135 


coloca o número 135 na memória 30000. A função 
PEEK nos “conta” qual o número que está em dada me- 
mória; por exemplo: 


PRINT PEEK 30000 
36 MICROHOBBY 





escreve na tela o que está na memória 30000. Lembre- 
se, Os endereços só vão de O a 65535 e o número máx !- 
mo que cabe em uma memória é 255. Assim, para colo- 
car na memória um número maior que 255 deveremos 
“quebrá-lo” em várias partes usando a base 256 (16º), 
pois ele não cabe em apenas uma posição. Se ele for me- 
nor do que 65536 (256?) devemos “'quebrá-lo” em 
dois; se o número for maior que 65536 e menor do que 
16777216 (256º), deveremos quebrá-lo em 3 e assim 
por diante. 


Suponha, por exemplo, que você queira colocar o nú- 
mero 522 nas memórias 30000 e 30001; ora, 522 = 
< 02º = 2 
oa DA! = 10 


Vamos colocar o byte menos significativo na memória 
de menor endereço: 


POKE 30000, 10 
POKE 30001,2 


Para obtê-lo de volta, basta fazer: 


PRINT PEEK 30000 + 256 x PEEK 30001 


Experimente agora colocar na memória o número 
32477 e obtê-lo de volta (use os mesmos endereços). 


Faça O mesmo para o número 65535. .. E, se você es- 
tiver inspirado, tente colocar os números 100.000 e 
20. 000.000 na memória. ê 








QUEBRA- 
CABEÇA 


VERDADEIRO 
OU sm, 









A partir deste número, inauguramos a seguinte siste- 
mática para resposta do quebra-cabeça: ele será respon- 
dido sempre no segundo número após sua publicação. 
isto significa que o quebra-cabeça proposto no número 
1 terá sua resposta publicada no número 3. Este que es- 
tamos propondo agora no número 2, será respondido 
no número 4 e assim sucessivamente. Neste número 2 
começamos também a contar com a colaboração dos 
membros da MENSA residentes no BRASIL, 





O quebra-cabeça que vamos propor agora é de autoria 
de Jim Geschwender e foi publicado na seção GAMES da 
revista americana OMNI no mês de maio de 1983 (res- 
posta na página 148). Neste momento alguns leitores se 
perguntarão: “Mas, qual é a graça? 


Basta achar esta revista e procurar a resposta!” Pois é 
nesse ponto que eles vão ficar surpresos: o quebra-cabe- 
ca deste mês não consiste em achar a resposta. Vamos 
então ao quebra-cabeça e depois dizemos o que preten- 
demos: 


A lista a seguir contém 10) asserções que podem ser 
verdadeiras (V) ou falsas (F). 


Assinale V ou F em todas elas de maneira que suas 
respostas satisfaçam simultaneamente todos os itens 
da lista sem contradições: 


(|) A quarta asserção falsa tem numeração ímpar. 
( Há mais asserções falsas entre as primeiras seis 
(de 1 a 6) que entre as últimas 7 (de 4 a 10). 

| Existem pelo menos 5 asserções falsas. 

| Existem três asserções verdadeiras consecutivas. 
) Existem pelo menos tantas asserções verdadei- 
ras com numeração par, quantas asserções fal- 
sas com numeração ímpar. 

-) As asserções 7 e 10 são, ou ambas falsas, ou 
ambas verdadeiras. 






dt = 


E 
(| 











7.4) Das três últimas asserções com numeração par 
(6, 8e 10) apenas uma é verdadeira. 

8. ( |) As asserções 6 e 9 podem ser verdadeiras so- 
mente se a asserção 10 for falsa. 

9.(  ) A asserção 7 e a primeira asserção verdadeira 
com numeração par são precedidas imediata- 
mente por asserções verdadeiras. 

10.( ) Aasserção 9 é falsa. 


Agora você vai quebrar a cabeça tentando achar a res- 
posta ou, se for preguiçoso, vai procurá-la na revista OMNI. 


Mas, O que queremos realmente que você faça é "bo- 
lar” um programa em BASIC — TK que faça seu compu- 
tador achar a resposta. 


Lembre-se de que existem no BASIC funções e instru- 
ções extremamente poderosas do ponto de vista lógico: 


ormsadi 


URSO 


LINGUAGEM 
DE MÁQUINA 


NÍVEL 2 | CRIANÇAS o INICIAÇÃO 
ADULTOS E º 

NÍVEL 1 | ADOLESCENTES INICIAÇÃO 

ADULTOS E APROF. EM APLICAÇÕES 
NÍVEL 2A| ADOLESCENTES ADMINISTRATIVAS 

ADOLESCENTES APLICAÇÕES EM 
NÍVEL 2B| JOGOS JOGOS 

ADULTOS E LINGUAGEM DE MÁQUINA 
NÍVEL 3 | ADOLESCENTES ASSEMBLY Z80 

TOS E APROF. A LINGUAGEM 

NÍVEL 4 ADOLESCENTES DE MÁQUI 


Núcleo 
de) orientação 
de estudos informações e inscrições: 


ny Brito Faria Lima, 1.451 -3º - CJ. 31 
- CEP 01451 - São Paulo-SP 
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QUEBRA-CABEÇA 
VERDADEIRO OU 
FALSO? 


Continuação... 


IF... THEN 
OR 

AND 

NOT 


Além disso, seu TK tem a seguinte capacidade: qual- 
quer asserção entre parênteses, se for verdadeira a ela 
atribuimos o valor 1, se for falsa 6. Experimente digitar: 


PRINT (2 = 2) 


PRINT (47/> 51) 


e veja o que seu TK responde em cada caso. 

Agora, mãos à obra e envie-nos o programa (veja se- 
ção “Como colaborar com MICROHOBBY”) a tempo, 
para que possamos eventualmente publicá-lo no número 
4. Boa sorte e bom divertimento. 


COMO 
COLABORAR 
COM 
MICROHOBBY 


A revista MICROHOBBY foi criada para servir de in- 
tercâmbio entre os leitores que participam do mágico 
mundo da computação. 

A característica realmente inovadora do computador 
pessoal, está em transformar cada consumidor num cria- 
dor. Aproveite sua criatividade e envie suas colabora- 


ções, recebendo remuneração a título de DIREITO 


AUTORAL. 

Se o material enviado for aprovado para publicação, 
a remuneração será de Cr$ 10.000,00 por programa. Se 
o programa for muito bom e muito extenso esta quantia 
será aumentada, a critério da redação, até Cr$ 30.000,00. 
Esta remuneração será oferecida também para artigos 
interessantes sobre o mundo do TK. 

A maneira ideal de nos enviar o material a ser publi- 
cado obedece às seguintes normas: 


8 MICROHOBBY 


LANCAMENTO 


LIVRO: APLICAÇÕES SÉRIAS PARA TK82-C 


No momento em que estávamos fechando esta edição, 
chegou às nossas mãos um exemplar do livro 

APLICAÇÕES SÉRIAS PARA TK82-C E CP200 de 
autoria de DELIO SANTOS LIMA, 

Não tiverios, portanto, tempo material para fazer 
uma análise detalhada, mas, numa rápida leitura pude- 
mos perceber que este livro contém programas muito in- 
teressantes e algumas “dicas” realmente muito úteis para 
os usuários dos computadores que usam BASIC-TK. 

Faremos futuramente uma análise crítica mais pro- 
funda, assim como de todos os livros referentes ao TK 
que nos forem enviados para resenha, mas por enquanto 
queremos nos congratular com o DELIO por mais esta 
iniciativa pioneira e bem brasileira. o 


1) Nunca esquecer de colocar nome completo, endereço 
e número de sua assinatura em todo material enviado (fi- 
tas, listagens de impressora, envelope, carta, etc). 

2) Enviar a listagem de programa datilografada ou, me- 
lhor ainda, tirada na impressora do TK. 

3) Colocar sempre uma linha REM com o nome do autor 
e o título do programa. 

4) Enviar uma fita com o programa gravado algumas ve- 
zes (se possível em gravadores diferentes). 

5) Na fita, gravar com microfone (em viva voz), algumas 
instruções úteis, nome completo e endereço do reme- 
tente. 

O material não utilizado não será devolvido. Esta é 
uma norma corrente em quase todas as revistas do mun- 
do, que gera porém, uma certa desconfiança: “e se apa- 
garem meu nome do programa e o publicarem sem me 
remunerar?” 

Neste ponto podemos sugerir o seguinte: 

Ao enviar o material para qualquer revista, você, ou 
confia em sua seriedade, ou, é melhor não enviar o ma- 
terial, reservando-o para uma publicação digna de seu 
crédito. 

Uma outra saída é a de tirar uma cópia de todo ma- 
terial enviado e registrá-lo em cartório, para qualquer 
reclamação posterior. Obviamente tal procedimento só é 
aconselhável se o material enviado for valioso a ponto de 
justificar toda essa mão-de-obra. 


Di 


| 





Cx. POSTAL: 60081 


COM O COLA 5 ORAR 7) he aid, poderá so eai pelo telefone: 
COM MICROHOBBY 


Continuação... Aguardamos sua colaboração. 
6) O material deve ser enviado para: o 


(011) 257-5767 








MICROMEGA P.M.D. Ltda. 
PROGRAMAS DO LEITOR 





PEQUENOS 
ANÚNCIOS 


Envie seu pequeno anúncio de poucas linhas e ele será * Gostaria de entrar em contato com rádio amadores 
publicado gratuitamente pela MICROHOBBY. que utilizem micros do tipo Sinclair para decodificar 
CWe RTTY. Aos interessados entrar em contato com 
Renato Strauss, R. Cardoso de Almeida, 654 — ap. 32 
— CEP 05013 — São Paulo — SP. Para trocas de idéias 





Bem 


* Vendo expansão de 16K para NEZ 8000, nenhum e experiências. 
uso, baratíssima — José Luis — S. Paulo — Fone: 
274-5995. 
* SINCLAIR CLUB, para usuários do ZX81 — NEZ8000 Xadrez 
— TK82-C — CP200 — TK85 — Envie uma carta com Divulgação é 
dados pessoais e um programa: Rua Bandeira Paulista, má ii 
147/162 — Itaim Bibi — São Paulo — CEP 04532. TUDO PARA A PRÁTICA 
ão DO REI DOS JOGOS 
* Troca de idéias e programas para TK — Robson Go- 
mes Vilela — Rua dos Navegantes, 1017/202 — Boa Xadrez Eletrônico 
Viagem — Recife — PE — CEP 50000. Pasaienos é pobos 
"ias o Sima 
m nea 
* Vendo programas em fita-cassete 2K e 16K para "Onjunitação de Torwlss 
TK82 — Carlos Sciarretti — Caixa Postal 5567 — São 


Paulo — CEP 01051. Av. Brig? E OT) BA O 61 fg tsrr- - São Paulo - SP 





* Vendo programas em fita K-7 para os micros TK-82, 
NZ-8000, CP-200 e ZX-81. Aos interessados escrever a 
para Renato Strauss, R. Cardoso de Almeida, 654 — 
ap. 32 — CEP 05013 — São Paulo — SP. 


* Curso de linguagem de máquina para TK82 e TK85 
(Assembly Z80). Aos sábados das 9:00 às 13:00 hs. 
— São Paulo — Fone: 813-4555 (Márcia) à tarde. 
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A nossa revista não será distribuida nas bancas. 
Para obter seu exemplar mensal, contendo muitos 
€ programas para o seu TK, muitas dicas e prêmios 
interessantíssimos, você deverá fazer uma assinatura; 
o preço anual da assinatura é de Cr$ 11.800,00. 


Porém, até 30 de setembro, manteremos o preço de 


Cr$ 9.900,00, com direito à escolha de um desses dois 
brindes: 


Fita com jogos (Pulga — 2K e Simulador de Vôo — 

16 K) no valor de Cr$ 6.900,00. 

TWIN-GO (Desgravador e rejuvenescedor 

instantâneo de fitas cassete) no valor de 

Cr$ 7.800,00 

Para tanto, você deverá preencher corretamente 
O cupom anexo (não esquecendo de assinalar o brinde 
de sua escolha), e colocá-lo num envelope, junto a um 
cheque nominal ou vale postal a favor de MICROMEGA 
PUBLICAÇÕES E MATERIAL DIDÁTICO LTDA,, no 
valor de Cr$ 9.900,00 (oferta válida até 30 de 
setembro). 

O envelope deverá ser selado e endereçado à 





MICROMEGA PM.D. LTDA. 
Caixa Postal 60081 — CEP 05096 
São Paulo — SP 








OLHE SO O QUE ESTÁ RESERVADO 
PARA O Nº 3 PROGRAMAS DO LEITOR: 


Muitos programas interessant íssimos bolados ou 
adaptados por nossos leitores, inclusive aplicativos sérios. 


PROGRAMAS DO MÊS: 
Um gigantesco programa de arquivo. 
O programa "LIFE" em linguagem de máquina. 


DICAS: 

Aritmética financeira. 

Como preparar uma linha REM para código de máquina. 
Como encher a tela instantaneamente. 


CURSOS: 
Continuação do Curso Basic TK e do Assembly Z8QG do 
TK. 


PEQUENOS ANÚNCIOS: 
Para esta seção você poderá enviar um pequeno anúncio 
para publicação gratuita. 


FITA DO MÊS: 
As instruções e as dicas do Simulador de Vôo. 
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PREPARE-SE PARA O 


VESTIBULAR 


DE UMA MANEIRA 





Ia 








No NÚCLEO você pode se inscrever escolhendo as matérias, dependendo de suas reais necessidades, 
aproveitando ao máximo seu tempo. 
Se o seu problema é MATEMÁTICA, FÍSICA, QUÍMICA, BIOLOGIA, GRAMÁTICA, REDAÇÃO, FRANCÊS, 
ETC., temos os melhores professores dos melhores cursinhos de São Paulo, para lhe dar um 
atendimento INDIVIDUALIZADO. 


MU RMASSDENISIAVUNOSY, 


Informações e inscrições ETA 
aç Ç del orientacão 


para turmas de AG 0 ç niÚ de jestudos 


Av. Brig. Faria Lima, 1451 - 3º - 
Tel.: 813-4555 - CEP 01451 - São 
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Desgravador e rejuvenescedor instantâneo 
de fitas K-7  sstms: passou... vescravou 


GARANTIA DE 5 ANOS 


Lwin'tãio 
Desgrava e rejuvenesce em apenas 4 segundos, qual- 
quer fita cassete independente de sua duração, eliminan- 

do todos os ruídos e chiados decorrentes de frequentes | | 
regravações. 

* Poupa o desgaste da fita e do gravador. 

* Poupa tempo e melhora a qualidade do som da fita casse- 

te na reutilização da mesma. 

Gravando em cima de outra gravação, a qualidade da re- 
produção é consideravelmente prejudicada, além de criar 





| 
» 


. 
= 


E 
PARA 


APAGAR confusões, principalmente se a gravação anterior for de 
RENA Agfa duração mair curta. Desgravando com o TWIN-GO, nada 


disso acontece. “ç 
* O TWIN-GO é indispensável a todos os profissionais e 
amadores, usuários de fitas cassete. 


VOLTA PELA 
ABERTURA 
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JOGO DE GAMÃO 
16K 


Este programa apresenta o tabuleiro no 
udeo e ulbliza o eficiente codigo de ma: 
quina. permitindo 4 (quatro) mveis de 
tticuldades de joga 


LABIRINTO 
TRIDIMENSIONAL - 16K 


jogo em três dimensões, O jogador po 
tera detirir q dificuldade do Labirinto 
| programa apresenta a posição do jo 
jador em perspectiva Em qualquer mo 
memo é possivel pedir auntlio so com 
pautadas 


Dr mu sços e 
= Es di pe sd 


RE, 
| Es 


: mo-s8 Von tec E gua ; 
hoo a E E 
E . a 

MATEMATICA | 


16K/64K 


Analise qratica de funções matemati 
cas. resolução de sistemas de equa 
ções linearos (16% 51 equações /B4k 95 
quações), e Calculo de integrais deti 
nidos 


e d 


senta o tubuleno e as pe 
Permite à escolha de ate 
cuidado O programa for 
monmemo aq agem 
psdos, e nemáarana em 
reçãas e podera re 


mgada 


MONSTRO DAS TREVAS 
TRIDIMENSIONAL - 16K 


Impressionante jogo onde você deve 
evitar o monstro das trevas. Tudo em 3 
dimensões 


INVASORES DO 
ESPAÇO - 16K 


Consiste de uma frota de naves invaso 
ras extruterrenas, descendo no planeta 
Terra Sua missão é destruir as naves 
invasoras dispondo da arma de ratos la 
ser 


Jogo animado onde deverão ser apaga 
dos todos às pontinhos espalhados em 
um tabtrinto (o programa contóm 15 t 
pos de labirinto). Você sera impedido à 
qualquer Cusmo, por 4 entraterronos, 
quardisas do labirinto, que poderão ser 
combuatidos com cargas de sós tasas 


DEMOLIDOR 
EM 


Jogo animado, tipo “fliperama” O joga 
dor devera demolir uma parede com 
uma bota que sé encontra sempre em 
movimento 


RALLY 

16K 

Emocionante corda do cally om um ta 
birinto, onde poderio sor testados sua 
habil ida de e sous roflosos. Para conse 
Quir sou intento, você devera evitar car 
ros-atáque + obstáculos em seu trajeto 


FKALC 
16K/64K 


Programa desenvolvido para calculos 
humérnicos em glantiha O usuado defh 
UNE dunas, um has o as formal 

aplicadas Similar ao famoso Viste a 

De grande versatilidade, este programa 
pormite a formulação de calculos cieh 
trficos e comercia ostise de tabelas 


jumertoca utero J rc 
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